20 lines
496 B
Plaintext
20 lines
496 B
Plaintext
compile function mast_sched_today_date( DateToUse )
|
|
|
|
|
|
* DATE TO USE SHOULD BE PASSED AS AN ICONV OR DATE(), ETC
|
|
if assigned( DateToUse ) else
|
|
DateToUse = date()
|
|
end
|
|
if DateToUse = '' then
|
|
DateToUse = date()
|
|
end
|
|
DayPos = mod( DateToUse, 7 )+1
|
|
Days = 'Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday'
|
|
convert ',' to @fm in Days
|
|
CurDay = Days<DayPos>
|
|
CurDate = oconv( DateToUse, 'D4,HL' )
|
|
convert ',' to ' ' in CurDate
|
|
CurDate = CurDay:' ':CurDate
|
|
|
|
return CurDate
|