Dates

 BBS: Inland Empire Archive
Date: 06-15-92 (16:21)             Number: 437
From: RAY CARSON                   Refer#: NONE
  To: JOHN GALLAS                   Recvd: NO  
Subj: Dates                          Conf: (2) Quik_Bas

JG>    I need a forumla that'll tell how many days its been between
JG> two dates.  It has to tell weather it has been a leap year or not,
JG> and it has to be fast.  Is it possible?  Any help would be

'
---
DEFINT A-Z
DECLARE SUB DateToJulian (JD#, JM#, JY#, JJ#)

    Date1$ = "06-02-1992"
    Date2$ = "07-15-1992"
    JM# = VAL(MID$(Date1$, 1, 2))
    JD# = VAL(MID$(Date1$, 4, 2))
    JY# = VAL(MID$(Date1$, 9, 2))
    CALL DateToJulian(JD#, JM#, JY#, JJ#)
    Day1# = JJ#
    JM# = VAL(MID$(Date2$, 1, 2))
    JD# = VAL(MID$(Date2$, 4, 2))
    JY# = VAL(MID$(Date2$, 9, 2))
    CALL DateToJulian(JD#, JM#, JY#, JJ#)
    PRINT "Days difference is"; JJ# - Day1#

DEFSNG A-Z
SUB DateToJulian (JD#, JM#, JY#, JJ#)

    IF JM# > 2# THEN
        JM# = JM# - 3#
    ELSE
        JM# = JM# + 9#
        JY# = JY# - 1#
    END IF
    J2# = FIX(JY# / 100#)
    J1# = JY# - 100# * J2#
    JJ# = FIX((146097# * J2#) / 4#) + FIX((1461# * J1#) /
4#) + FIX((153# * JM# + 2#) / 5#) + JD# + 1721119#

END SUB

'
---

Ray Carson


--- T.A.G. 2.6c1 Standard
 * Origin: CSI Online - TagScan Alpha Site 2! (1:106/3198)