OpenEuphoria

Re: EUPHORIA Digest - 24 Oct 1998 to 25 Oct 1998 (#1998-161)

• Posted by Matt Z Nunyabidness <matt1278 at JUNO.COM> Oct 26, 1998
• 714 views

Sure irv. rldate():
global function rldate() --Saturday October 24th, 1998
object temp,newdate,rl
rl=date()
temp=rl[7]
if temp=1 then
    newdate="Sunday"
elsif temp=2 then
    newdate="Monday"
elsif temp=3 then
    newdate="Tuesday"
elsif temp=4 then
    newdate="Wednesday"
elsif temp=5 then
    newdate="Thursday"
elsif temp=6 then
    newdate="Friday"
elsif temp=7 then
    newdate="Saturday"
end if
temp=rl[2]
if temp=1 then
    newdate=newdate&" January"
elsif temp=2 then
    newdate=newdate&" February"
elsif temp=3 then
    newdate=newdate&" March"
elsif temp=4 then
    newdate=newdate&" April"
elsif temp=5 then
    newdate=newdate&" May"
elsif temp=6 then
    newdate=newdate&" June"
elsif temp=7 then
    newdate=newdate&" July"
elsif temp=8 then
    newdate=newdate&" August"
elsif temp=9 then
    newdate=newdate&" September"
elsif temp=10 then
    newdate=newdate&" October"
elsif temp=11 then
    newdate=newdate&" November"
elsif temp=12 then
    newdate=newdate&" December"
end if
temp=rl[3]
if temp=1 or temp=21 or temp=31 then
    newdate=newdate&" "&sprintf("%d",temp)&"st"
elsif temp=2 or temp=22 then
    newdate=newdate&' '&sprintf("%d",temp)&"nd"
elsif temp=3 or temp=23 then
    newdate=newdate&' '&sprintf("%d",temp)&"rd"
elsif temp>3 or temp<20 or temp>23 or temp<31 then
    newdate=newdate&' '&sprintf("%d",temp)&"th"
elsif temp=4 or temp=22 then
    newdate=newdate&' '&sprintf("%d",temp)&"nd"
end if
temp=rl[1]
temp=temp+1900
newdate=newdate&", "&sprintf("%d",temp)
return newdate
end function

_________________
"When it comes to programming languages, Eu™ by RDS is a cut above" -
Matt1278 and SoftPrez
Webbers: <A HREF="mailto:softprez at juno.com">softprez at juno.com</A>,
president of SoftCo.® Uh, no slogan at the moment™
Seeya next week!