local Y
local M
local D
Y=0
M=0
D=0

Y=YEAR(date())
M=MONTH(date())
D=DAY(date())
DO CASE
CASE M+2=13
REPL Y WITH Y+1
REPL M WITH 1
CASE M+2=14
REPL Y WITH Y+1
REPL M WITH 2
OTHERWISE
REPL Y WITH Y+1
REPL M WITH M+2
ENDCASE
DISP Y
DISP M
DISP D

[此贴子已经被作者于2007-9-15 20:20:38编辑过]

Local Y, M, D

Y=Year(Date())
M=Month(Date())
D=Day(Date())

Do Case
Case M+2=13
Y=Y+1
M=1
Case M+2=14
Y=Y+1
M=2
Otherwise
Y=Y+1
M=M+2
Endcase

? Y, M, D

看了斑竹的回复，俺想到另一个问题，测试如下：

lnFirst=Seconds()
Local Y, M, D

Y=Year(Date())
M=Month(Date())
D=Day(Date())

Do Case
Case M+2=13
Y=Y+1
M=1
Case M+2=14
Y=Y+1
M=2
Otherwise
Y=Y+1
M=M+2
Endcase

? Y, M, D
? Seconds()-m.lnFirst

lnFirst=Seconds()
Local Y, M, D

m.Y=Year(Date())
m.M=Month(Date())
m.D=Day(Date())

Do Case
Case m.M+2=13
m.Y=m.Y+1
m.M=1
Case m.M+2=14
m.Y=m.Y+1
m.M=2
Otherwise
m.Y=m.Y+1
m.M=m.M+2
EndCase
?m.y,m.m,m.d
? Seconds()-m.lnFirst

测试结果，再一次验证我曾经看到过的一篇文章。看来原来理解有误。多谢！
有兴趣的，可以参看：http://www.gz9f.com/bbs/dispbbs.asp?boardID=1&ID=293884&page=3

[此贴子已经被作者于2007-9-17 1:09:03编辑过]