Posted: 10:19am 21 Jun 2016 |
Copy link to clipboard |
 Print this post |
|
@lew247
As something we previously discussed; here is the code that has appeared on TBS regarding calculating DOW from date:
dim DOW$(6) length 9
DOW$(0)="Sunday":DOW$(1)="Monday":DOW$(2)="Tuesday":DOW$(3)= "Wednesday"
DOW$(4)="Thursday":DOW$(5)="Friday":DOW$(6)="Saturday"
Year=VAL(MID$(DATE$,7,4)):Month=VAL(MID$(DATE$,4,2)):Day=VAL (MID$(DATE$,1,2))
print DOW$(DayOfWeek(Year, Month, Day))
end
function DayOfWeek(year, month, day)
a = int((14-month)/12)
m = month + 12*a - 2
y = year - a
DayOfWeek = (day + y + int(y/4)-int(y/100)+int(y/400)+int(31*m/12)) mod 7
end function
Originally came from TZA (now MicroBlocks) and modified by Grogster . . . .
|