Date - récuperation première et dernière journée du mois courant
cs_Jackboy
Messages postés
757
Date d'inscription
vendredi 7 septembre 2001
Statut
Membre
Dernière intervention
19 juin 2008
-
3 oct. 2005 à 16:20
aieeeuuuuu Messages postés 698 Date d'inscription jeudi 16 janvier 2003 Statut Membre Dernière intervention 20 mai 2011 - 3 oct. 2005 à 17:53
aieeeuuuuu Messages postés 698 Date d'inscription jeudi 16 janvier 2003 Statut Membre Dernière intervention 20 mai 2011 - 3 oct. 2005 à 17:53
A voir également:
- Date - récuperation première et dernière journée du mois courant
- Vba dernière ligne non vide - Forum Visual Basic 6
- Convertir jours en années mois jours ✓ - Forum VB.NET
- Derniere ligne non vide vba ✓ - Forum Visual Basic 6
- Les mois en anglais ✓ - Forum Visual Basic 6
- Vba mois en cours - Forum Visual Basic
2 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
3 oct. 2005 à 16:46
3 oct. 2005 à 16:46
salut,
Private Sub Command1_Click()
Dim DatePremier As Date, DateDernier As Date
Dim JourPremier As String, JourDernier As String
DatePremier = "01/10/2005"
DateDernier = "31/10/2005"
JourPremier = Format (DatePremier, "DDDD")
JourDernier = Format(DateDernier, "DDDD")
MsgBox DatePremier & " = " & JourPremier & vbCrLf & _
DateDernier & " = " & JourDernier, 32
End Sub
<SMALL> Coloration syntaxique automatique [AFCK]</SMALL>
PCPT
Private Sub Command1_Click()
Dim DatePremier As Date, DateDernier As Date
Dim JourPremier As String, JourDernier As String
DatePremier = "01/10/2005"
DateDernier = "31/10/2005"
JourPremier = Format (DatePremier, "DDDD")
JourDernier = Format(DateDernier, "DDDD")
MsgBox DatePremier & " = " & JourPremier & vbCrLf & _
DateDernier & " = " & JourDernier, 32
End Sub
<SMALL> Coloration syntaxique automatique [AFCK]</SMALL>
PCPT
aieeeuuuuu
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
20 mai 2011
3
3 oct. 2005 à 17:53
3 oct. 2005 à 17:53
salut
juste pour completer la reponse de PCPT :
si tu veux trouver dynamiquement la date du premier et dernier jour; tu peux faire
dim tmp as string
tmp = "01" & "/" & format(date, "MM/YYYY")
DatePremier = cdate(tmp)
la tu as trouvé le premier jour,
pour le dernier, tu rajoute 1 mois au premier jour, et tu enleve un jour :
DateDernier = dateadd("M", 1, DatePremier)
DateDernier = dateadd("D", -1, DateDernier)
et la tu as le dernier jour du mois...
juste pour completer la reponse de PCPT :
si tu veux trouver dynamiquement la date du premier et dernier jour; tu peux faire
dim tmp as string
tmp = "01" & "/" & format(date, "MM/YYYY")
DatePremier = cdate(tmp)
la tu as trouvé le premier jour,
pour le dernier, tu rajoute 1 mois au premier jour, et tu enleve un jour :
DateDernier = dateadd("M", 1, DatePremier)
DateDernier = dateadd("D", -1, DateDernier)
et la tu as le dernier jour du mois...