Posted by Jim Guerber on January 17, 2006 at 07:13:20:
In Reply to: Re: Subroutine to find the Julian Date posted by Glenn Tanner on January 16, 2006 at 19:03:23:
Here is another technique to determine the day of the week.
a$ = date$
j = date2num(a$,0) mod 7
if j = 0 d$ = "WED"
if j = 1 d$ = "THU"
if j = 2 d$ = "FRI"
if j = 3 d$ = "SAT"
if j = 4 d$ = "SUN"
if j = 5 d$ = "MON"
if j = 6 d$ = "TUE"
print a$ ;' is '; d$