avant de r=E9inventer la roue, je voudrais savoir si en vb=20
existe une fonction permettant de calculer le dernier jour=20
d'un mois, comme fait FIN.MOIS dans excel.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Zoury
Salut JML! :O)
Rien de tout fait mais presque..
<non testé> '*** Private Function FinMois(ByRef iMois As Integer, ByRef iAnnee As Integer) As Date FinMois = DateSerial(iAnnee, iMois + 1, 0) ' le zéro va chercher la journée avant. End Function '***
Merci de poster les réponses au groupe afin d'en faire profiter à tous "JML" wrote in message news:07f601c39e3d$f70528d0$ Bonjour,
avant de réinventer la roue, je voudrais savoir si en vb existe une fonction permettant de calculer le dernier jour d'un mois, comme fait FIN.MOIS dans excel.
Merci de votre aide
Salut JML! :O)
Rien de tout fait mais presque..
<non testé>
'***
Private Function FinMois(ByRef iMois As Integer, ByRef iAnnee As Integer) As
Date
FinMois = DateSerial(iAnnee, iMois + 1, 0) ' le zéro va chercher la
journée avant.
End Function
'***
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"JML" <dorlag@nospam.free.fr> wrote in message
news:07f601c39e3d$f70528d0$a001280a@phx.gbl...
Bonjour,
avant de réinventer la roue, je voudrais savoir si en vb
existe une fonction permettant de calculer le dernier jour
d'un mois, comme fait FIN.MOIS dans excel.
<non testé> '*** Private Function FinMois(ByRef iMois As Integer, ByRef iAnnee As Integer) As Date FinMois = DateSerial(iAnnee, iMois + 1, 0) ' le zéro va chercher la journée avant. End Function '***
Merci de poster les réponses au groupe afin d'en faire profiter à tous "JML" wrote in message news:07f601c39e3d$f70528d0$ Bonjour,
avant de réinventer la roue, je voudrais savoir si en vb existe une fonction permettant de calculer le dernier jour d'un mois, comme fait FIN.MOIS dans excel.
Merci de votre aide
François Picalausa
Bonjour/soir,
Vu la fonction FIN.MOIS, je l'ai implémenté comme ceci:
Function FinMois(date_départ As Date, iMois As Integer) As Date FinMois = DateAdd("m", iMois + 1, date_départ) FinMois = DateSerial(Year(FinMois), Month(FinMois), 0) End Function
"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de news:
Salut JML! :O)
Rien de tout fait mais presque..
<non testé> '*** Private Function FinMois(ByRef iMois As Integer, ByRef iAnnee As Integer) As Date FinMois = DateSerial(iAnnee, iMois + 1, 0) ' le zéro va chercher la journée avant. End Function '***
Bonjour/soir,
Vu la fonction FIN.MOIS, je l'ai implémenté comme ceci:
Function FinMois(date_départ As Date, iMois As Integer) As Date
FinMois = DateAdd("m", iMois + 1, date_départ)
FinMois = DateSerial(Year(FinMois), Month(FinMois), 0)
End Function
"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:uzeDYAknDHA.2628@TK2MSFTNGP10.phx.gbl
Salut JML! :O)
Rien de tout fait mais presque..
<non testé>
'***
Private Function FinMois(ByRef iMois As Integer, ByRef iAnnee As
Integer) As Date
FinMois = DateSerial(iAnnee, iMois + 1, 0) ' le zéro va chercher
la journée avant.
End Function
'***
Vu la fonction FIN.MOIS, je l'ai implémenté comme ceci:
Function FinMois(date_départ As Date, iMois As Integer) As Date FinMois = DateAdd("m", iMois + 1, date_départ) FinMois = DateSerial(Year(FinMois), Month(FinMois), 0) End Function
"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de news:
Salut JML! :O)
Rien de tout fait mais presque..
<non testé> '*** Private Function FinMois(ByRef iMois As Integer, ByRef iAnnee As Integer) As Date FinMois = DateSerial(iAnnee, iMois + 1, 0) ' le zéro va chercher la journée avant. End Function '***
Zoury
SAlut! :O)
hmm.. je ne l'avais évidemment jamais utilisé... mais quelle fonction étrange!
Merci de poster les réponses au groupe afin d'en faire profiter à tous
Lag
Merci beaucoup, c'est exactement ce que j'attendais !!! :-))
"François Picalausa" a écrit dans le message de news:
Bonjour/soir,
Vu la fonction FIN.MOIS, je l'ai implémenté comme ceci:
Function FinMois(date_départ As Date, iMois As Integer) As Date FinMois = DateAdd("m", iMois + 1, date_départ) FinMois = DateSerial(Year(FinMois), Month(FinMois), 0) End Function
"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de news: > Salut JML! :O) > > Rien de tout fait mais presque.. > > <non testé> > '*** > Private Function FinMois(ByRef iMois As Integer, ByRef iAnnee As > Integer) As Date > FinMois = DateSerial(iAnnee, iMois + 1, 0) ' le zéro va chercher > la journée avant. > End Function > '***
Merci beaucoup, c'est exactement ce que j'attendais !!!
:-))
"François Picalausa" <fpicalausa@chez.com> a écrit dans le message de news:
O4jKuDknDHA.3504@TK2MSFTNGP11.phx.gbl...
Bonjour/soir,
Vu la fonction FIN.MOIS, je l'ai implémenté comme ceci:
Function FinMois(date_départ As Date, iMois As Integer) As Date
FinMois = DateAdd("m", iMois + 1, date_départ)
FinMois = DateSerial(Year(FinMois), Month(FinMois), 0)
End Function
"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:uzeDYAknDHA.2628@TK2MSFTNGP10.phx.gbl
> Salut JML! :O)
>
> Rien de tout fait mais presque..
>
> <non testé>
> '***
> Private Function FinMois(ByRef iMois As Integer, ByRef iAnnee As
> Integer) As Date
> FinMois = DateSerial(iAnnee, iMois + 1, 0) ' le zéro va chercher
> la journée avant.
> End Function
> '***
Merci beaucoup, c'est exactement ce que j'attendais !!! :-))
"François Picalausa" a écrit dans le message de news:
Bonjour/soir,
Vu la fonction FIN.MOIS, je l'ai implémenté comme ceci:
Function FinMois(date_départ As Date, iMois As Integer) As Date FinMois = DateAdd("m", iMois + 1, date_départ) FinMois = DateSerial(Year(FinMois), Month(FinMois), 0) End Function
"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de news: > Salut JML! :O) > > Rien de tout fait mais presque.. > > <non testé> > '*** > Private Function FinMois(ByRef iMois As Integer, ByRef iAnnee As > Integer) As Date > FinMois = DateSerial(iAnnee, iMois + 1, 0) ' le zéro va chercher > la journée avant. > End Function > '***
