1. Help for the Date() format - Reply
- Posted by "BABOR, JIRI" <J.Babor at GNS.CRI.NZ> Jul 15, 1997
- 897 views
Matt wrote:
> I have the need the read the system's date in a 4-digit format.
> Euphoria's Date() returns only the last two digit of the year...
include machine.e
function get_date()
-- return {year,month,day}
sequence rl
rl=repeat(0,10)
rl[REG_AX]=#2A00
rl=dos_interrupt(#21,rl)
return {rl[REG_CX], floor(rl[REG_DX]/256),remainder(rl[REG_DX],256)}
end function
To set date, see Jacques' doswrap.e. Jiri
