Date de fin de mois [Résolu]
cs_tolt
- Messages postés
- 270
- Date d'inscription
- mardi 17 décembre 2002
- Statut
- Membre
- Dernière intervention
- 4 avril 2019
- Messages postés
- 2
- Date d'inscription
- vendredi 10 janvier 2003
- Statut
- Membre
- 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
- Statut
- Membre
- 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
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 13299
- Date d'inscription
- lundi 13 décembre 2004
- Statut
- Modérateur
- 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