/85f8b56e767041d0b60b7b653a2afd4c/auth-avatar/b48dc3c3a3b63448e9bd0d4a9ce61af0-cs_tolt)
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:
- Vba dernier jour du mois
- Fin.mois vba - Meilleures réponses
- Dernier jour du mois vba - Meilleures réponses
- SQL : Sql server - obtenir la date du dernier jour du mois (get last day of month). - CodeS SourceS - Guide
- Dernier jour du mois, ou de la semaine - Codes sources - SQL (Fonctions)
- C# / .NET : Obtenir le dernier jour du mois - CodeS SourceS - Guide
- ColdFusion : Obtenir le dernier jour du mois - CodeS SourceS - Guide
- Javascript : Obtenir le dernier jour du mois - CodeS SourceS - 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
124 internautes nous ont dit merci ce mois-ci
/abfde2d6312a449aaf83418e8d66fead/auth-avatar/9777ac76c74f8b6889f3b1145f99d38a-gillardg)
/864d8f73d4ed4355aac9482d09031ae1/auth-avatar/be95a350867e6be27884dc39b80cfe3b-PCPT)
- 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.