求助各位大哥大姐,
怎样用用month(),date(),inlist()编一个有用的短程序,我认为它是我们下周要考的题.
我只接触VFP一学期,还请帮帮!
这是我编的一点,
.............................................................................................................
clear
x=date()
y=val(subs(x,1,2))
do case
case y<11
wait "现在是上旬" window at 7,18
case y<21
wait "现在是中旬" window at 7,18
case y<32
wait "现在是下旬" window at 7,18
endcase
..........................................................................................................................
y=val(subs(x,1,2))不对,请大家帮我改改,在加加.

要把X先转成字符型
y=val(subs(dtoc(x),1,2))

原来如此!

clear
y=day(date())
do case
case y<11
wait "现在是上旬" window at 7,18
case y<21
wait "现在是中旬" window at 7,18
otherwise
wait "现在是下旬" window at 7,18
endcase

[此贴子已经被作者于2006-6-17 18:30:18编辑过]

y=month(date())
do case
case inlist(y,3,4,5)
j="spring"
case inlist(y,6,7,8)
j="summer"
case inlist(y,9,10,11)
j="fall"
case inlist(y,12,1,2)
endcase
wait j window timeout 5 at 10,10

应该有个求季度的函数吧，不过我没看见过，按道理是有的，
有没有谁用过季度函数呀

我检查过了，在VFP6中没有求一个日期的季度值的函数

是的,我在课本上翻了,只有month(),date(),time()三个,用他们时多与inlist()一起
季度可以编一个十分简单的程序,我没记的,哎..........

case y<11
case y<21
似应为：
case Between(y,1,10)
case Between(y,11,20)...

DO CASE ... ENDCASE 结构的特点就决定了4楼的写法没错。假如在DO CASE...ENDCASE结构中有多个CASE是真(满足条件)则它只执行第1个满足条件的语句。也就是说，它能执行到第X个CASE语句，说明了第1至第(X-1)个CASE都是假的。
如果y的值是11,则第2个CASE和第3个CASE为真而第1个CASE为假,程序自然就执行第2个CASE(它是第1个满足条件的CASE)而不会执行第3个CASE(它是第2个满足条件的CASE)，因此当y=11的时候，自然就是"中旬"了。