24 lines
706 B
Plaintext
24 lines
706 B
Plaintext
'Display the current date in the formats of "2007-11-10"
|
|
d$=date$("yyyy/mm/dd")
|
|
print word$(d$,1,"/")+"-"+word$(d$,2,"/")+"-"+word$(d$,3,"/")
|
|
|
|
'and "Sunday, November 10, 2007".
|
|
day$(0)="Tuesday"
|
|
day$(1)="Wednesday"
|
|
day$(2)="Thursday"
|
|
day$(3)="Friday"
|
|
day$(4)="Saturday"
|
|
day$(5)="Sunday"
|
|
day$(6)="Monday"
|
|
theDay = date$("days") mod 7
|
|
print day$(theDay);", ";date$()
|
|
|
|
' month in full
|
|
year=val(word$(d$,1,"/"))
|
|
month=val(word$(d$,2,"/"))
|
|
day=val(word$(d$,3,"/"))
|
|
weekDay$="Tuesday Wednesday Thursday Friday Saturday Sunday Monday"
|
|
monthLong$="January February March April May June July August September October November December"
|
|
|
|
print word$(weekDay$,theDay+1);", ";word$(monthLong$,month);" ";day;", ";year
|