# Re: formula

``` BBS: Inland Empire Archive
Date: 06-14-92 (09:53)             Number: 422
From: DICK DENNISON                Refer#: 413
To: JOHN GALLAS                   Recvd: NO
Subj: Re: formula                    Conf: (2) Quik_Bas```
```JG>    I need a forumla that'll tell how many days its been between two
JG> dates.  It has to tell weather it has been a leap year or not, and it
JG> has to be fast.  Is it possible?  Any help would be appreciated.

This may help:
FUNCTION jdn& (dater\$)
YY% = VAL(MID\$(dater\$, 9, 2))
MM% = VAL(MID\$(dater\$, 1, 2))
DD% = VAL(MID\$(dater\$, 4, 2))
NumLeap% = YY% \ 4
IF YY% MOD 4 = 0 THEN
NumLeap% = NumLeap% - 1
IsLeap% = 1
ELSE
IsLeap% = 0
END IF
SELECT CASE MM%
CASE 1:  J& = DD%
CASE 2:  J& = DD% + 31
CASE 3:  J& = DD% + 59 + IsLeap%
CASE 4:  J& = DD% + 90 + IsLeap%
CASE 5:  J& = DD% + 120 + IsLeap%
CASE 6:  J& = DD% + 151 + IsLeap%
CASE 7:  J& = DD% + 181 + IsLeap%
CASE 8:  J& = DD% + 212 + IsLeap%
CASE 9:  J& = DD% + 243 + IsLeap%
CASE 10:  J& = DD% + 273 + IsLeap%
CASE 11:  J& = DD% + 304 + IsLeap%
CASE 12:  J& = DD% + 334 + IsLeap%
END SELECT
J& = J& + (YY% - 1&) * 365 + NumLeap%
jdn& = J&
END FUNCTION

--- VP [DOS] V4.09e
* Origin: The MailMan  (914)374-3903 NY Quick Share Pt #7 *HST (1:272/34)
```

Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET