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

评论