假设年份不超过2050年

1 CLS
DATA 31,28,31,30,31,30,31,31,30,31,30,31
INPUT"Year,month,day?",y,m,d
IF y<1988 OR y>2050 OR m<1 OR m>12 OR y<>y\1 OR m<>m\1 THEN 1
REDIM day(12):RESTORE
FOR i=1 TO 12:READ day(i):NEXT i
FOR i=1988 TO y-1
    yr=i:GOSUB leap
    IF l=0 THEN dee=dee+365 ELSE dee=dee+366
NEXT i
yr=y:GOSUB leap
IF l=1 THEN day(2)=day(2)+1
FOR i=1 TO m-1
    dee=dee+day(i)
NEXT i
dee=dee+d
IF dee MOD 3=0 THEN PRINT"CHUAN TONG" ELSE PRINT"LIU XING"
END

(接上帖）
leap:

(接上帖）
IF yr MOD 4=0 THEN
   IF yr MOD 100<>0 THEN
      l=1
   ELSE
      IF yr MOD 400=0 THEN
         l=1
      ELSE
         l=0
      END IF
   END IF
ELSE
   l=0
END IF
RETURN