Date de fin de moisRésolu

Question

Bonjour,

Avez-vous svp une petite fonction qui vous renvois à partir de la date du jour la date de fin de mois.
Exemple : Nous sommes le 25/06/2008 et la fonction retourne le 30/06/2008.

Merci d'avance de me faire ganger du temps...

Bonne soirée.
tolt

GURDOUS · Accepted Answer

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

gillardg · Answer

en net => Date.DaysInMonth(Today.Year, Today.Month)
 'nombre de jours dans le mois en cours

en vb6 => éssaye

cs_tolt · Answer

ça semble être impec...
Merci et bonne soirée.

tolt

PCPT · Answer

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

cs_tolt · Answer

Super fonction et Merci de l'info.

badanaro · Answer

Superbe fonction !!!

Merci pour l'aide

Raphaël

Date de fin de mois

6 réponses

Votre réponse