Function - kontoller at tal går op i 4

Function ErSkudaar(aarstal)
    ErSkudaar = ((aarstal MOD 4) = 0)
End Function

ikke testet...

Function ErSkudaar(aarstal)
    ErSkudaar = ((aarstal Mod 4) = 0)
End Function

OK, det kan godt være jeg er lidt krævende !!!
Hvad sker der med MOD en lille forklaring ville være godt :-)

Eksempel...

7 divideret med 4, giver 3 i rest
(7 MOD 4) => 3

mod er en funktion der giver den del af tallet der er for meget for at divisionen kan gå op med et lige tal. !!

Eks:
2000 mod 4 = 0
2001 mod 4 = 1
2002 mod 4 = 2
2003 mod 4 = 3
2004 mod 4 = 0

Din skudårs funktion bør også tage højde for alle regler om skudår før den kan bruges:

function ErSkudAar(AYear)
  ErSkudAar = (AYear mod 4 = 0) and ((AYear mod 100 <> 0) or (AYear mod 400 = 0))
end function

Der er ikke skudår ved hver århundredeskifte med mindre det er deleligt med 400.

Tak til coltau og i andre !!

Jeg var klar over reglerne for skudår, men det var jo min plan at jeg skulle lære at skrive sådan en Funcion selv :-)

Men tak igen.....