OpenEuphoria

Re: Date stuff

• Posted by Irv Mullins <irv at ELLIJAY.COM> Oct 26, 1998
• 628 views

Actually, Ralf, you can avoid building that text string,
by doing it as follows:

-- rldate.e------------

constant
DAYS = {"Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"},
MONTHS = {"January","February","March","April","May","June",
          "July","August","September","Oktober","November","December"},
PF = {"st","nd","rd","th"}

global function rldate ()
sequence date_seq, post

    date_seq = date ()
    if remainder(date_seq[3],10) < 4 then
       post = PF[date_seq[3]]
    else post = PF[4]
    end if
    return sprintf("%s %s %d%s, %4d",
     {DAYS[date_seq[7]], MONTHS[date_seq[2]], date_seq[3],
      post, date_seq[1]+1900})

end function

-- end of rldate.e---------------

 puts(1,rldate())