; special date functions and conversions
Global Dim GetDay.s(7)
Global Dim GetMonth.s(12)

GetDay(0)="Sunday"
GetDay(1)="Monday" 
GetDay(2)="Tuesday" 
GetDay(3)="Wednesday"
GetDay(4)="Thursday"
GetDay(5)="Friday"
GetDay(6)="Saturday"

GetMonth(1)="January"
GetMonth(2)="February"
GetMonth(3)="March"
GetMonth(4)="April"
GetMonth(5)="May"
GetMonth(6)="June"
GetMonth(7)="July"
GetMonth(8)="August"
GetMonth(9)="September"
GetMonth(10)="October"
GetMonth(11)="November"
GetMonth(12)="December"