Date de fin de mois

Résolu
cs_tolt Messages postés 269 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 4 avril 2019 - 25 juin 2008 à 17:55
badanaro Messages postés 2 Date d'inscription vendredi 10 janvier 2003 Statut Membre Dernière intervention 19 août 2008 - 19 août 2008 à 17:33
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

6 réponses

GURDOUS Messages postés 25 Date d'inscription mercredi 10 mars 2004 Statut Membre Dernière intervention 18 décembre 2008
25 juin 2008 à 18:20
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
3
gillardg Messages postés 3275 Date d'inscription jeudi 3 avril 2008 Statut Membre Dernière intervention 14 septembre 2014 2
25 juin 2008 à 18:26
en net => Date.DaysInMonth(Today.Year, Today.Month)
 'nombre de jours dans le mois en cours

en vb6 => éssaye
0
cs_tolt Messages postés 269 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 4 avril 2019
25 juin 2008 à 18:27
ça semble être impec...
Merci et bonne soirée.

tolt
0
cs_tolt Messages postés 269 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 4 avril 2019
26 juin 2008 à 08:05
Super fonction et Merci de l'info.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
badanaro Messages postés 2 Date d'inscription vendredi 10 janvier 2003 Statut Membre Dernière intervention 19 août 2008
19 août 2008 à 17:33
Superbe fonction !!!

Merci pour l'aide

Raphaël
0
PCPT Messages postés 13278 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 48
25 juin 2008 à 20:34
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
-1
Rejoignez-nous