DAY.8xp

Purpose: Calculates day of the week for a given date.

Download DAY.8xp

Source Code

:ClrHome
:Input "MONTH ",M
:Input "DAY ",D
:Input "YEAR ",Y
:iPart((14-M)/12)A
:
:Y-AX
:
:M+12*A-2N
:
:(D+X+iPart(X/4)-iPart(X/100)+iPart(X/400)+iPart(31*N/12))/7W
:
:7*fPart(W)F
:Disp F
:Disp "0SUN1MON2TUE3WED"
:Disp "4THUR5FRI6SAT"