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 1855 Messages postés jeudi 23 mai 2002Date d'inscription 24 juin 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 

Votre réponse

5 réponses

Meilleure réponse
tof008 707 Messages postés jeudi 5 mai 2005Date d'inscription 5 janvier 2010 Dernière intervention - 17 juil. 2006 à 11:49
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<>

Merci tof008 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 100 internautes ce mois-ci

Commenter la réponse de tof008
Meilleure réponse
cs_JMO 1855 Messages postés jeudi 23 mai 2002Date d'inscription 24 juin 2018 Dernière intervention - 17 juil. 2006 à 12:49
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

Merci cs_JMO 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 100 internautes ce mois-ci

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
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
Pinzut77 21 Messages postés mercredi 5 juillet 2006Date d'inscription 17 juillet 2006 Dernière intervention - 17 juil. 2006 à 14:43
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
cs_JMO 1855 Messages postés jeudi 23 mai 2002Date d'inscription 24 juin 2018 Dernière intervention - 17 juil. 2006 à 16:13
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.