print "今天是星期";mid$("日一二三四五六",(Date2Number&(date$) mod 7)*2+1,2) DEFLNG A-Z FUNCTION Date2Number& (d$) y = VAL(MID$(d$, 7, 4)) m = VAL(d$) d = VAL(MID$(d$, 4, 2)) r = ((y MOD 4 = 0 AND y MOD 100 <> 0) OR (y MOD 400 = 0)) y = y - 1 Date2Number& = (y * 365 + y \ 4 - y \ 100 + y \ 400 + VAL(MID$("    0 31 59 90120151181212243273304334", m * 3, 3)) + r * (m > 1) + d) END FUNCTION deflng a-z FUNCTION Number2Date$ (day&) d$ = "00-00-0000" y = day& / 365.254 DO   n = day& - (y * 365 + y \ 4 - y \ 100 + y \ 400)   IF n < 0 THEN y = y - 1 LOOP WHILE n < 0 y = y + 1 r = ((y MOD 4 = 0 AND y MOD 100 <> 0) OR (y MOD 400 = 0)) FOR m = 12 TO 1 STEP -1 k = VAL(MID$("    0 31 59 90120151181212243273304334", m * 3, 3)) + r * (m > 1) IF n > k THEN EXIT FOR NEXT d = n - k MID$(d$, 1, 1) = CHR$(48 + m \ 10) MID$(d$, 2, 1) = CHR$(48 + m MOD 10) MID$(d$, 4, 1) = CHR$(48 + d \ 10) MID$(d$, 5, 1) = CHR$(48 + d MOD 10) MID$(d$, 7, 4) = RIGHT$("0000" + LTRIM$(STR$(y)), 4) Number2Date$ = d$ END FUNCTION

评论