cs_Zeroc00l
Messages postés367Date d'inscriptionlundi 1 avril 2002StatutMembreDernière intervention11 février 2010 31 juil. 2003 à 21:32
Merci, c'est bien plus court ... mais bon maintenant que j'ai mis cette source, elle servira d'alternative ...
cs_Zeroc00l
Messages postés367Date d'inscriptionlundi 1 avril 2002StatutMembreDernière intervention11 février 2010 31 juil. 2003 à 22:07
Bon effectivement ca marche tres bien ... aussi bien voire mieux qu moi donc je vais mettre une autre source a la place de celle ci ! (quand je l'aurai fait !)
cs_jr62
Messages postés1Date d'inscriptionmardi 20 janvier 2004StatutMembreDernière intervention20 janvier 2004 20 janv. 2004 à 10:38
J'ai essayé le code mais il ne fonctionne pas toujours. Au lieu de mettre:
While Lundi > JourParMois(j)
j = j + 1
Lundi = Lundi - JourParMois(j)
Mois = Mois + 1
Wend
Il faudrait plutot mettre:
While Lundi > JourParMois(j)
Lundi = Lundi - JourParMois(j)
j = j + 1
Mois = Mois + 1
Wend
A plus
cs_Zeroc00l
Messages postés367Date d'inscriptionlundi 1 avril 2002StatutMembreDernière intervention11 février 2010 20 janv. 2004 à 23:27
Ah oui !
Effectivement c'est une petite coquille ... Désolé pour ceux qui auraient utilisé ce code ...
Vala c'est corrigé ! Merci !
31 juil. 2003 à 20:35
dateadd ( "d" , -Weekday ( DATEDEPART, vbMonday )+1 , DATEDEPART )
31 juil. 2003 à 21:32
31 juil. 2003 à 22:07
20 janv. 2004 à 10:38
While Lundi > JourParMois(j)
j = j + 1
Lundi = Lundi - JourParMois(j)
Mois = Mois + 1
Wend
Il faudrait plutot mettre:
While Lundi > JourParMois(j)
Lundi = Lundi - JourParMois(j)
j = j + 1
Mois = Mois + 1
Wend
A plus
20 janv. 2004 à 23:27
Effectivement c'est une petite coquille ... Désolé pour ceux qui auraient utilisé ce code ...
Vala c'est corrigé ! Merci !