For those of you who follow the Gregorian calendar...
Posted: Mon Dec 31, 2007 11:22 pm
...Happy new year.
Discuss QBasic, Freebasic, QB64 and more
http://www.petesqbsite.com/phpBB3/
Code: Select all
INPUT "Enter the year: ", Y
IsleapYear = (Y MOD 4 = 0) - (Y MOD 100 = 0) + (Y MOD 400 = 0)
Code: Select all
kyear = tmx.tmYear - 70
res = year * kyear + day * ((kyear + 1) / 4)
res = res + month(tmx.tmMon)
IF tmx.tmMon > 1 and ((kyear + 2) \ 4 ) THEN
res = res - day
END IF