Pinzut77
Messages postés21Date d'inscriptionmercredi 5 juillet 2006StatutMembreDernière intervention17 juillet 2006
-
17 juil. 2006 à 10:31
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 2018
-
17 juil. 2006 à 16:13
Bonjour,
Après quelques recherche sur google je n'ai pas trouvé de fonction pour calculer le quantième d'une date (enfin si j'en ai trouvé mais elles ne fonctionnaient pas).
Si quelqu'un connait la fonction pour faire ça, merci de poser ici !
Bonne journée
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 17 juil. 2006 à 12:49
Bonjour à tous....,
Effectivement avec DatePart, on obtient:
' code pour mettre la date du jour jj/mm/aaaa
' sous la forme aaqqq (quantième sur 3 positions)
'
Dim xDate
xDate = "14/07/2006" 'pour test date imposée
qqq = DatePart("y", xDate)
MsgBox "qqq: " & qqq
If qqq < 10 Then MsgBox "Si date 07/02/2002> aaqqq = " & Right(xDate,2) & "00" & DatePart("y", xDate)
Else
If qqq < 100 Then MsgBox "Si date 31/03/2002> aaqqq = " & Right(xDate,2) & "0" & DatePart("y", xDate)
Else MsgBox "Si date jj/mm/aaaa> aaqqq = " & Right(xDate,2) & DatePart("y", xDate)
End If
End If
Pinzut77
Messages postés21Date d'inscriptionmercredi 5 juillet 2006StatutMembreDernière intervention17 juillet 2006 17 juil. 2006 à 14:43
Ah ok merci pour le detail de la fonction Jean-Marc mais qu'elle est la difference entre le premier nombre donné et le deuxième (MsgBox "qqq: " & qqq et MsgBox "Si date = 07/02/2002 => aaqqq = " & Right(xDate,2) & "00" & DatePart("y", xDate))
Vous n’avez pas trouvé la réponse que vous recherchez ?