Calcul du quantième d'une date

[Résolu]
Signaler
Messages postés
21
Date d'inscription
mercredi 5 juillet 2006
Statut
Membre
Dernière intervention
17 juillet 2006
-
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
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

5 réponses

Messages postés
695
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
5 janvier 2010
29
Salut. Est ce que tu as essayé d'utiliser la fonction  DatePart() ?

(Si la réponse vous convient, appuyez sur réponse acceptée...)

Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire<>
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 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

jean-marc
Messages postés
21
Date d'inscription
mercredi 5 juillet 2006
Statut
Membre
Dernière intervention
17 juillet 2006

Si je fais ma cellule =datepart(la cellule content la date) il est affiché #NOM?   (exemple "=dateparte(A1)")
Messages postés
21
Date d'inscription
mercredi 5 juillet 2006
Statut
Membre
Dernière intervention
17 juillet 2006

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))
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Re,

J'ai recopié un code que j'utilisai en prod pour un client.
Si travail avec les quantièmes, je rajoute l'année devant les quantièmes.

Dans des progs, je compare des dates en quantième, c'est pourquoi je rajoute la notion d'année.

MsgBox Date 'retourne 17/07/2006
MsgBox DatePart("y", Date) ' retourne 198




MsgBox DatePart("y", "16/07/2004") ' retourne 198

jean-marc