BONJOUR !!!
... pas très beau sur marseille aujourd'hui :-(
donc ... pour en revenir à mon problème ... je souhaiterais contourner cette fonction 'isdate' ...
je vous livre donc mon code mais je bute sur la détection des années bissextiles.
Auriez vous une astuce à me donner ? :-)
Merci d'avance pour votre aide !!!
Select Case Mid(W_Date, 3, 2)
Case "01", "03", "05", "07", "08", "10", "12"
If Mid(W_Date, 1, 2) < "01" Or Mid(W_Date, 1, 2) > "31" Then
ANO
End If
Case "04", "06", "09", "11"
If Mid(W_Date, 1, 2) < "01" Or Mid(W_Date, 1, 2) > "30" Then
ANO
End If
Case "02" If Mid(W_Date, 5, 2)
"96" Or Mid(W_Date, 5, 2) "00" Or _ Mid(W_Date, 5, 2)
"04" Or Mid(W_Date, 5, 2) "08" Or _ Mid(W_Date, 5, 2)
"12" Or Mid(W_Date, 5, 2) "16" Then
If Mid(W_Date, 1, 2) < "01" Or Mid(W_Date, 1, 2) > "29" Then
ANO
End If
Else
If Mid(W_Date, 1, 2) < "01" Or Mid(W_Date, 1, 2) > "28" Then
ANO
End If
End If
Case Else
ANO
End Select