The LeapYear

[Dale Yarker]

Just updated source code. Worked on it without waiting reply.

Suggest you test more thoroughly than I did in PBMAIN.

---

---

Code:

'changed post 1 code to operation per line
'if you like your style it is "legel"
'maybe just me, I figure out what you're were doing
'for example, I couldn't see that you were starting at 29
'because logic ops return -1 (or 0), so + was actually - 1
'when not 0, repeat, REPEAT, if you like it as is okay, but
'it will come back different if I need to read it
#compile exe
#dim all
declare _
function iFeb(byval iJahr as integer)        as integer
function iFeb(byval iJahr as integer) Public as integer
  if iJahr < 1582% then
    function = 29% + ((iJahr mod 4%) <> 0%)
  else
    function = 29% + ((iJahr/4) <> (iJahr\4) or _
                    (iJahr/100) = (iJahr\100) and _
                    (iJahr/400) <> (iJahr\400))
  end if
end function

'Cheers,

(tried make a separate post (twice), this forum combined it with previous)