cs_tolt268
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 : badanaro2
Messages postés vendredi 10 janvier 2003Date d'inscription
19 août 2008
Dernière intervention
- 19 août 2008 à 17:33
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.
GURDOUS25
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é ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
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
