Date de fin de mois [Résolu]

cs_tolt 268 Messages postés mardi 17 décembre 2002Date d'inscription 5 février 2014 Dernière intervention - 25 juin 2008 à 17:55 - Dernière réponse : badanaro 2 Messages postés vendredi 10 janvier 2003Date d'inscription 19 août 2008 Dernière intervention
- 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 

6 réponses

Répondre au sujet
GURDOUS 25 Messages postés mercredi 10 mars 2004Date d'inscription 18 décembre 2008 Dernière intervention - 25 juin 2008 à 18:20
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de GURDOUS
gillardg 3288 Messages postés jeudi 3 avril 2008Date d'inscription 14 septembre 2014 Dernière intervention - 25 juin 2008 à 18:26
0
Utile
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
cs_tolt 268 Messages postés mardi 17 décembre 2002Date d'inscription 5 février 2014 Dernière intervention - 25 juin 2008 à 18:27
0
Utile
ça semble être impec...
Merci et bonne soirée.

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