Déterminer si une année est bissextile 

wpe2.gif (1107 octets)exemple.mdb

Function AnneeBissectile(annee As Integer)
‘But : déterminer si une année est bissectile ou non
‘Année : Année à tester
Dim test As Date
On Error Resume Next
test = CVDate("29/02/" & annee)

If Err <> 0 Then
AnneeBissectile = False
Err = 0
Else
AnneeBissectile = True
End If
End Function Déterminer le dernier mois d’un jour (Version 2.0, 7.0, 8.0)
Function FinDeMois(D As Variant) As Variant
‘But : Déterminer le dernier jour d’un mois
‘D : Date à tester
FinDeMois = DateSerial(Year(D), Month(D) + 1, 0)
End Function