42 lines
925 B
Plaintext
42 lines
925 B
Plaintext
;Declare Procedures
|
|
Declare.s MonthInText()
|
|
Declare.s DayInText()
|
|
|
|
;Output the requested strings
|
|
Debug FormatDate("%yyyy-%mm-%dd", Date())
|
|
Debug DayInText() + ", " + MonthInText() + FormatDate(" %dd, %yyyy", Date())
|
|
|
|
;Used procedures
|
|
Procedure.s DayInText()
|
|
Protected d$
|
|
Select DayOfWeek(Date())
|
|
Case 1: d$="Monday"
|
|
Case 2: d$="Tuesday"
|
|
Case 3: d$="Wednesday"
|
|
Case 4: d$="Thursday"
|
|
Case 5: d$="Friday"
|
|
Case 6: d$="Saturday"
|
|
Default: d$="Sunday"
|
|
EndSelect
|
|
ProcedureReturn d$
|
|
EndProcedure
|
|
|
|
Procedure.s MonthInText()
|
|
Protected m$
|
|
Select Month(Date())
|
|
Case 1: m$="January"
|
|
Case 2: m$="February"
|
|
Case 3: m$="March"
|
|
Case 4: m$="April"
|
|
Case 5: m$="May"
|
|
Case 6: m$="June"
|
|
Case 7: m$="July"
|
|
Case 8: m$="August"
|
|
Case 9: m$="September"
|
|
Case 10:m$="October"
|
|
Case 11:m$="November"
|
|
Default:m$="December"
|
|
EndSelect
|
|
ProcedureReturn m$
|
|
EndProcedure
|