原碼:KDE:=date;
KDE:=KDE[datacount];
MDE:=FLOOR(KDE/100)*100+31;
for i =1 to 3 do begin
if MDE=D1970TODATE(DATETOD1970(MDE)) then break;
MDE:=MDE-1;
end;
WW:=MOD(DATETOD1970(MDE)-3,7);
MDE:=MDE-1-(WW=6)-(WW<2)*2;
if KDE>MDE then begin
MDE:=D1970TODATE(DATETOD1970(MDE+10));
MDE:=FLOOR(MDE/100)*100+31;
for i =1 to 3 do begin
if MDE=D1970TODATE(DATETOD1970(MDE)) then break;
MDE:=MDE-1;
end;
WW:=MOD(DATETOD1970(MDE)-3,7);
MDE:=MDE-1-(WW=6)-(WW<2)*2;
end;
摩結:MDE linethick0