A voir également:
- Vba dernier jour du mois
- Dernier jour du mois vba - Meilleures réponses
- Fin de mois - Meilleures réponses
- Premier et dernier jour du mois ✓ - Forum - Visual Basic
- Dernier jour du mois - Forum - Visual Basic
- Afficher mois en cours - Forum - Visual Basic
- Sql dernier jour du mois - Guide
- Dernier jour du mois, ou de la semaine - Codes sources - SQL (Fonctions)
6 réponses
GURDOUS
- 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
gillardg
- Messages postés
- 3275
- Date d'inscription
- jeudi 3 avril 2008
- Statut
- Membre
- Dernière intervention
- 14 septembre 2014
en net => Date.DaysInMonth(Today.Year, Today.Month)
'nombre de jours dans le mois en cours
en vb6 => éssaye
'nombre de jours dans le mois en cours
en vb6 => éssaye
cs_tolt
- Messages postés
- 270
- Date d'inscription
- mardi 17 décembre 2002
- Statut
- Membre
- Dernière intervention
- 4 avril 2019
ça semble être impec...
Merci et bonne soirée.
tolt
Merci et bonne soirée.
tolt
PCPT
- Messages postés
- 13280
- 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