OVH Cloud OVH Cloud

Fonction de siècle

1 réponse
Avatar
Mart
es-ce qu'il existe une fonction rapide pour d=E9terminer le=20
si=E8cle d'un num=E9rique genre [02] pour 2002 ...

Merci beaucoup de votre r=E9ponse

1 réponse

Avatar
Raymond
Bonsoir.

A ma connaissance, je ne pense pas qu'une fonction century existe, mais tu
peux la créer toi-même.

Private Sub Commande0_Click()
MsgBox Century(Date)
End Sub

Public Function Century(UneDate As Date) As Integer
If Not IsDate(UneDate) Then
Century = 9999
Else
Century = Left(Format(UneDate , "yyyy"), 2) + 1
End If
End Function


--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Mart" a écrit dans le message de
news:0b4801c386b9$80a1e070$
es-ce qu'il existe une fonction rapide pour déterminer le
siècle d'un numérique genre [02] pour 2002 ...

Merci beaucoup de votre réponse