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

Pinzut77 21 Messages postés mercredi 5 juillet 2006Date d'inscription 17 juillet 2006 Dernière intervention - 17 juil. 2006 à 10:31 - Dernière réponse : cs_JMO 1841 Messages postés jeudi 23 mai 2002Date d'inscription 26 avril 2018 Dernière intervention
- 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 

5 réponses

Répondre au sujet
tof008 707 Messages postés jeudi 5 mai 2005Date d'inscription 5 janvier 2010 Dernière intervention - 17 juil. 2006 à 11:49
+3
Utile
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<>
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de tof008
cs_JMO 1841 Messages postés jeudi 23 mai 2002Date d'inscription 26 avril 2018 Dernière intervention - 17 juil. 2006 à 12:49
+3
Utile
 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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_JMO
Pinzut77 21 Messages postés mercredi 5 juillet 2006Date d'inscription 17 juillet 2006 Dernière intervention - 17 juil. 2006 à 14:36
0
Utile
Si je fais ma cellule =datepart(la cellule content la date) il est affiché #NOM?   (exemple "=dateparte(A1)")
Commenter la réponse de Pinzut77
Pinzut77 21 Messages postés mercredi 5 juillet 2006Date d'inscription 17 juillet 2006 Dernière intervention - 17 juil. 2006 à 14:43
0
Utile
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
cs_JMO 1841 Messages postés jeudi 23 mai 2002Date d'inscription 26 avril 2018 Dernière intervention - 17 juil. 2006 à 16:13
0
Utile
 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.