A voir également:
- Vba dernier jour du mois
- Fin.mois vba - Meilleures réponses
- Dernier jour du mois vba - Meilleures réponses
- Premier et dernier jour du mois ✓ - Forum - Visual Basic
- Boucle For avec des Dates avec VBA pour Excel - Forum - Visual Basic 6
- [VBA] Identifier une date la + proche de fin de mois - Forum - VB.NET
- Dernier jour du mois - Forum - Visual Basic
- Sql dernier jour du mois - Guide
6 réponses
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
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
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