Date de fin de mois [Résolu]

Messages postés
268
Date d'inscription
mardi 17 décembre 2002
Dernière intervention
5 février 2014
- - Dernière réponse : badanaro
Messages postés
2
Date d'inscription
vendredi 10 janvier 2003
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
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
Messages postés
25
Date d'inscription
mercredi 10 mars 2004
Dernière intervention
18 décembre 2008
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 106 internautes ce mois-ci

Commenter la réponse de GURDOUS
Messages postés
3288
Date d'inscription
jeudi 3 avril 2008
Dernière intervention
14 septembre 2014
0
Merci
en net => Date.DaysInMonth(Today.Year, Today.Month)
 'nombre de jours dans le mois en cours

en vb6 => éssaye
Commenter la réponse de gillardg
Messages postés
268
Date d'inscription
mardi 17 décembre 2002
Dernière intervention
5 février 2014
0
Merci
ça semble être impec...
Merci et bonne soirée.

tolt
Commenter la réponse de cs_tolt
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Dernière intervention
3 février 2018
0
Merci
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
Commenter la réponse de PCPT
Messages postés
268
Date d'inscription
mardi 17 décembre 2002
Dernière intervention
5 février 2014
0
Merci
Super fonction et Merci de l'info.
Commenter la réponse de cs_tolt
Messages postés
2
Date d'inscription
vendredi 10 janvier 2003
Dernière intervention
19 août 2008
0
Merci
Superbe fonction !!!

Merci pour l'aide

Raphaël
Commenter la réponse de badanaro

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.