OpenEuphoria

Re: Date Info Needed

• Posted by Mathew Hounsell <mfh03 at UOW.EDU.AU> Jun 17, 1999
• 433 views

If you want to know the current time and date use date(), see below.

To calculate the day of a week from a date see this in the archive (Under extra
stuff from RDS)
        Date calculations       1K       Junko Miura    Sep 1/96
A program for calculating the day of the week, given the date. It also
        calculates the number
of days between any two dates. @
        http://members.aol.com/fileseu/daybdate.zip

To ceck the validatey of a date or if a year is a leap year see (Under Recent
Contributions)
      Useful Routines   24K     Mathew Hounsell updated Apr 4/99
Mathew Hounsell wrote these routines for memory addressing, file path
      manipulation, date
validation, finding elements, program information, sequence manipulation,
      benchmarking and
determining an objects size, as well as constants for BIOS fixed
      addresses.
      http://members.wbs.net/homepages/f/i/l/fileseu/cil.zip

Other wise it's...
        -- Untested Code
        sequece regs = repeat(0,10)
        regs[REGS_AX] = #2A
        regs = dos_interrupt( 21, regs )

        day = and_bits( regs[REGS_AX], #FF )
        year = regs[REGS_CX] + 1980
        month = floor( regs[REGS_DX] / #100 )
        dow = and_bits( regs[REGS_DX], #FF )

to use...
        DOS GET DATE                             ( SET DOS DATE INT 21 2B )
        INT21 FUNCTION 2A                        { USES SAME REGISTERS    )
        RETURNS:
        AL = DAY
        CX = YEAR ( 1980 - 2099 )
        DH = MONTH
        DL = DAY OF THE WEEK ( 0 = SUNDAY )

Most modern bioses store the number of days since 1980 in 2 Bytes @ 0040:00CE
constant CLOCK_DAYS_SINCE_1980 = #4CE  -- Days since 1980 (In
        BIOS_MEM.E)
        ds1980 = peek( CLOCK_DAYS_SINCE_1980 )

The date() function
 Syntax:
            s = date()
 Description:
            Return a sequence with the following information:
                         { year,  -- since 1900
                          month,  -- January = 1
                            day,  -- day of month, starting at 1
                           hour,  -- 0 to 23
                         minute,  -- 0 to 59
                         second,  -- 0 to 59
                day of the week,  -- Sunday = 1
                day of the year}  -- January 1st = 1
 Example:
            now = date()
            -- now has: {95,3,24,23,47,38,6,83}
            -- i.e. Friday March 24, 1995 at 11:47:38pm, day 83 of the year
 Comments:
The value returned for the year is actually the number of years
            since 1900 (not the
last 2 digits of the year). In the year 2000 this value will be 100.
            In 2001 it will
            be 101, etc.
-------------------------
Sincerely,
Mathew Hounsell

mat.hounsell at excite.com