Date de fin de mois [Résolu]
cs_tolt
- Messages postés
- 268
- Date d'inscription
- mardi 17 décembre 2002
- Dernière intervention
- 5 février 2014
- Messages postés
- 2
- Date d'inscription
- vendredi 10 janvier 2003
- Dernière intervention
- 19 août 2008
A voir également:
- Fin.mois vba
- Vba dernier jour du mois - Meilleures réponses
- Dernier jour du mois vba - Meilleures réponses
- Calendrier par mois vba access - Codes sources - Visual Basic / VB.NET (Date & Heure)
- MFC en fin de VBA sur case mouvante ✓ - Forum - Visual Basic 6
- Sauvegarde le premier du mois vba excel ✓ - Forum - Visual Basic 6
- Trouver simplement la fin du mois passe - Codes sources - Visual Basic / VB.NET (Date & Heure)
- Visual Basic / VB.NET : Agenda/calendrier ou planning vba, besoin d'aide pour la finir! - CodeS Sour - Guide
6 réponses
Meilleure réponse
- Messages postés
- 25
- Date d'inscription
- mercredi 10 mars 2004
- Dernière intervention
- 18 décembre 2008
cette fonction je l'utilise dans mes projets. bn chance
apel: text1.text=fundate(25/06/08)
Function Findate(X As String) As Date
Dim m, a, fj As Integer
On Error GoTo r
m = Month(X)
a = Year(X)
If m <= 7 Then
If m = 2 Then
If a Mod 4 = 0 Then
fj = 29
Else
fj = 28
End If
ElseIf m Mod 2 = 0 Then
fj = 30
Else
fj = 31
End If
Else
If m Mod 2 = 0 Then
fj = 31
Else
fj = 30
End If
End If
Findate = Format(fj & "/" & m & "/" & a, "dd/mm/yy")
Exit Function
r:
MsgBox Err.Description
End Function
apel: text1.text=fundate(25/06/08)
Function Findate(X As String) As Date
Dim m, a, fj As Integer
On Error GoTo r
m = Month(X)
a = Year(X)
If m <= 7 Then
If m = 2 Then
If a Mod 4 = 0 Then
fj = 29
Else
fj = 28
End If
ElseIf m Mod 2 = 0 Then
fj = 30
Else
fj = 31
End If
Else
If m Mod 2 = 0 Then
fj = 31
Else
fj = 30
End If
End If
Findate = Format(fj & "/" & m & "/" & a, "dd/mm/yy")
Exit Function
r:
MsgBox Err.Description
End Function
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 106 internautes ce mois-ci
- Messages postés
- 13368
- Date d'inscription
- lundi 13 décembre 2004
- Dernière intervention
- 3 février 2018
salut,
rhoooo, pas besoin de cette usine à gaz si?
http://www.codyx.org/snippet_obtenir-dernier-jour-mois_15.aspx#92
Private Function GetLastDayOfThisMonth() As
Date
GetLastDayOfThisMonth = DateSerial(Year(Now), Month(Now) + 1, 0)
End Function
avec paramètre :
Private Function GetLastDateOfMonth(ByVal dDate As Date) As Date
GetLastDateOfMonth = DateSerial(Year(dDate), Month(dDate) + 1, 0)
End Function
Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
rhoooo, pas besoin de cette usine à gaz si?
http://www.codyx.org/snippet_obtenir-dernier-jour-mois_15.aspx#92
Private Function GetLastDayOfThisMonth() As
Date
GetLastDayOfThisMonth = DateSerial(Year(Now), Month(Now) + 1, 0)
End Function
avec paramètre :
Private Function GetLastDateOfMonth(ByVal dDate As Date) As Date
GetLastDateOfMonth = DateSerial(Year(dDate), Month(dDate) + 1, 0)
End Function
Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
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.