Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- PROGRAM:WKDYCALC
- :ClrHome
- :Disp "WEEKDAY CALC"
- :Input "Y=",Y
- :Input "M=",M
- :If M<3:Then
- :M+12→M
- :Y-1→Y
- :End
- :M*2+Y+int((M+1)*3/5)+int(Y/4)-int(Y/100)+int(Y/400)→Y
- :Input "D=",M
- :Y+M→Y
- :Disp "CALENDAR OFFSET"
- :Input "(EG. 1=GREG) C=",M
- :"Input C=? (1=GREG) ,M"
- :Y+M→Y
- :Y*2-int(Y/7)*14→Y
- :{1,3,4,3,7,4,11,6,17,5,22,3,25,5}→∟I
- :Disp "",sub("SUNMONTUESWEDNESTHURSFRISATUR",∟I(Y+1),∟I(Y+2))+"DAY"
- :0→Y:0→M
- :Output(1,1,""
Advertisement
Add Comment
Please, Sign In to add comment
