Calcul du quantième d'une date [Résolu]

Messages postés
21
Date d'inscription
mercredi 5 juillet 2006
Dernière intervention
17 juillet 2006
- - Dernière réponse : cs_JMO
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 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
Afficher la suite 

Votre réponse

5 réponses

Meilleure réponse
Messages postés
707
Date d'inscription
jeudi 5 mai 2005
Dernière intervention
5 janvier 2010
3
Merci
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<>

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 106 internautes ce mois-ci

Commenter la réponse de tof008
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
3
Merci
 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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 106 internautes ce mois-ci

Commenter la réponse de cs_JMO
Messages postés
21
Date d'inscription
mercredi 5 juillet 2006
Dernière intervention
17 juillet 2006
0
Merci
Si je fais ma cellule =datepart(la cellule content la date) il est affiché #NOM?   (exemple "=dateparte(A1)")
Commenter la réponse de Pinzut77
Messages postés
21
Date d'inscription
mercredi 5 juillet 2006
Dernière intervention
17 juillet 2006
0
Merci
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))
Commenter la réponse de Pinzut77
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
0
Merci
 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
Commenter la réponse de cs_JMO

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.