Je souhaiterai récupérer en VB la date de fin de mois (sans passer par la
formule FIN.MOIS() qui me fait planter mes calculs, je ne sais pas pourquoi
alors au bout de 3 heures de réflexion j'ai laisser tomber et décidé de
passer en VB).
Donc je voudrais récupérer le dernier jour du mois en VB, par exemple pour
la variable "18/09/2006" il me faut "30/09/2006", pour "09/20/2007" il me
faut "28/02/2007" ...
Est-ce que quelqu'un connaît une fonction qui pourraît me convenir ou déjà
fait un calcul de la sorte ?
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
Pierre Fauconnier
Bonjour
Principe: Le zéroième jour du mois étant le dernier jour du mois précédent. Donc, extraire l'année et le mois de la date considérée (fonctions year et month), puis utiliser dateserial en passant comme argument le mois qui suit, et comme valeur du jour 0
Function DernierJourDuMois(DateValeur As Date) As Date DernierJourDuMois = DateSerial(Year(DateValeur), Month(DateValeur) + 1, 0) End Function
Ok?
-- Pierre Fauconnier () (Skype: pierre_fauconnier) "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurence" a écrit dans le message de news:
Bonjour
Je souhaiterai récupérer en VB la date de fin de mois (sans passer par la formule FIN.MOIS() qui me fait planter mes calculs, je ne sais pas pourquoi alors au bout de 3 heures de réflexion j'ai laisser tomber et décidé de passer en VB). Donc je voudrais récupérer le dernier jour du mois en VB, par exemple pour la variable "18/09/2006" il me faut "30/09/2006", pour "09/20/2007" il me faut "28/02/2007" ... Est-ce que quelqu'un connaît une fonction qui pourraît me convenir ou déjà fait un calcul de la sorte ?
Merci infinement
Bonjour
Principe:
Le zéroième jour du mois étant le dernier jour du mois précédent.
Donc, extraire l'année et le mois de la date considérée (fonctions year et
month), puis utiliser dateserial
en passant comme argument le mois qui suit, et comme valeur du jour 0
Function DernierJourDuMois(DateValeur As Date) As Date
DernierJourDuMois = DateSerial(Year(DateValeur), Month(DateValeur) +
1, 0)
End Function
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le message de
news: 569F2D5E-FB5D-45AD-BE89-45D747FDE305@microsoft.com...
Bonjour
Je souhaiterai récupérer en VB la date de fin de mois (sans passer par la
formule FIN.MOIS() qui me fait planter mes calculs, je ne sais pas
pourquoi
alors au bout de 3 heures de réflexion j'ai laisser tomber et décidé de
passer en VB).
Donc je voudrais récupérer le dernier jour du mois en VB, par exemple pour
la variable "18/09/2006" il me faut "30/09/2006", pour "09/20/2007" il me
faut "28/02/2007" ...
Est-ce que quelqu'un connaît une fonction qui pourraît me convenir ou déjà
fait un calcul de la sorte ?
Principe: Le zéroième jour du mois étant le dernier jour du mois précédent. Donc, extraire l'année et le mois de la date considérée (fonctions year et month), puis utiliser dateserial en passant comme argument le mois qui suit, et comme valeur du jour 0
Function DernierJourDuMois(DateValeur As Date) As Date DernierJourDuMois = DateSerial(Year(DateValeur), Month(DateValeur) + 1, 0) End Function
Ok?
-- Pierre Fauconnier () (Skype: pierre_fauconnier) "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurence" a écrit dans le message de news:
Bonjour
Je souhaiterai récupérer en VB la date de fin de mois (sans passer par la formule FIN.MOIS() qui me fait planter mes calculs, je ne sais pas pourquoi alors au bout de 3 heures de réflexion j'ai laisser tomber et décidé de passer en VB). Donc je voudrais récupérer le dernier jour du mois en VB, par exemple pour la variable "18/09/2006" il me faut "30/09/2006", pour "09/20/2007" il me faut "28/02/2007" ... Est-ce que quelqu'un connaît une fonction qui pourraît me convenir ou déjà fait un calcul de la sorte ?
Merci infinement
Laurence
trop fort !
Merci !!
Bonjour
Principe: Le zéroième jour du mois étant le dernier jour du mois précédent. Donc, extraire l'année et le mois de la date considérée (fonctions year et month), puis utiliser dateserial en passant comme argument le mois qui suit, et comme valeur du jour 0
Function DernierJourDuMois(DateValeur As Date) As Date DernierJourDuMois = DateSerial(Year(DateValeur), Month(DateValeur) + 1, 0) End Function
Ok?
-- Pierre Fauconnier () (Skype: pierre_fauconnier) "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurence" a écrit dans le message de news:
Bonjour
Je souhaiterai récupérer en VB la date de fin de mois (sans passer par la formule FIN.MOIS() qui me fait planter mes calculs, je ne sais pas pourquoi alors au bout de 3 heures de réflexion j'ai laisser tomber et décidé de passer en VB). Donc je voudrais récupérer le dernier jour du mois en VB, par exemple pour la variable "18/09/2006" il me faut "30/09/2006", pour "09/20/2007" il me faut "28/02/2007" ... Est-ce que quelqu'un connaît une fonction qui pourraît me convenir ou déjà fait un calcul de la sorte ?
Merci infinement
trop fort !
Merci !!
Bonjour
Principe:
Le zéroième jour du mois étant le dernier jour du mois précédent.
Donc, extraire l'année et le mois de la date considérée (fonctions year et
month), puis utiliser dateserial
en passant comme argument le mois qui suit, et comme valeur du jour 0
Function DernierJourDuMois(DateValeur As Date) As Date
DernierJourDuMois = DateSerial(Year(DateValeur), Month(DateValeur) +
1, 0)
End Function
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le message de
news: 569F2D5E-FB5D-45AD-BE89-45D747FDE305@microsoft.com...
Bonjour
Je souhaiterai récupérer en VB la date de fin de mois (sans passer par la
formule FIN.MOIS() qui me fait planter mes calculs, je ne sais pas
pourquoi
alors au bout de 3 heures de réflexion j'ai laisser tomber et décidé de
passer en VB).
Donc je voudrais récupérer le dernier jour du mois en VB, par exemple pour
la variable "18/09/2006" il me faut "30/09/2006", pour "09/20/2007" il me
faut "28/02/2007" ...
Est-ce que quelqu'un connaît une fonction qui pourraît me convenir ou déjà
fait un calcul de la sorte ?
Principe: Le zéroième jour du mois étant le dernier jour du mois précédent. Donc, extraire l'année et le mois de la date considérée (fonctions year et month), puis utiliser dateserial en passant comme argument le mois qui suit, et comme valeur du jour 0
Function DernierJourDuMois(DateValeur As Date) As Date DernierJourDuMois = DateSerial(Year(DateValeur), Month(DateValeur) + 1, 0) End Function
Ok?
-- Pierre Fauconnier () (Skype: pierre_fauconnier) "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurence" a écrit dans le message de news:
Bonjour
Je souhaiterai récupérer en VB la date de fin de mois (sans passer par la formule FIN.MOIS() qui me fait planter mes calculs, je ne sais pas pourquoi alors au bout de 3 heures de réflexion j'ai laisser tomber et décidé de passer en VB). Donc je voudrais récupérer le dernier jour du mois en VB, par exemple pour la variable "18/09/2006" il me faut "30/09/2006", pour "09/20/2007" il me faut "28/02/2007" ... Est-ce que quelqu'un connaît une fonction qui pourraît me convenir ou déjà fait un calcul de la sorte ?
Merci infinement
Jacquouille
Et pourtant, il est de carrure tout à fait normale..... mais aussi long qu'un jour sans Beaujolais... -)
-- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"Laurence" a écrit dans le message de news:
trop fort !
Merci !!
Bonjour
Principe: Le zéroième jour du mois étant le dernier jour du mois précédent. Donc, extraire l'année et le mois de la date considérée (fonctions year et month), puis utiliser dateserial en passant comme argument le mois qui suit, et comme valeur du jour 0
Function DernierJourDuMois(DateValeur As Date) As Date DernierJourDuMois = DateSerial(Year(DateValeur), Month(DateValeur) + 1, 0) End Function
Ok?
-- Pierre Fauconnier () (Skype: pierre_fauconnier) "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurence" a écrit dans le message de news:
Bonjour
Je souhaiterai récupérer en VB la date de fin de mois (sans passer par la formule FIN.MOIS() qui me fait planter mes calculs, je ne sais pas pourquoi alors au bout de 3 heures de réflexion j'ai laisser tomber et décidé de passer en VB). Donc je voudrais récupérer le dernier jour du mois en VB, par exemple pour la variable "18/09/2006" il me faut "30/09/2006", pour "09/20/2007" il me faut "28/02/2007" ... Est-ce que quelqu'un connaît une fonction qui pourraît me convenir ou déjà fait un calcul de la sorte ?
Merci infinement
Et pourtant, il est de carrure tout à fait normale.....
mais aussi long qu'un jour sans Beaujolais... -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le message de
news: 34E53B03-E6EA-4B41-9BBC-A716981EB85E@microsoft.com...
trop fort !
Merci !!
Bonjour
Principe:
Le zéroième jour du mois étant le dernier jour du mois précédent.
Donc, extraire l'année et le mois de la date considérée (fonctions year
et
month), puis utiliser dateserial
en passant comme argument le mois qui suit, et comme valeur du jour 0
Function DernierJourDuMois(DateValeur As Date) As Date
DernierJourDuMois = DateSerial(Year(DateValeur), Month(DateValeur)
+
1, 0)
End Function
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le message
de
news: 569F2D5E-FB5D-45AD-BE89-45D747FDE305@microsoft.com...
Bonjour
Je souhaiterai récupérer en VB la date de fin de mois (sans passer par
la
formule FIN.MOIS() qui me fait planter mes calculs, je ne sais pas
pourquoi
alors au bout de 3 heures de réflexion j'ai laisser tomber et décidé de
passer en VB).
Donc je voudrais récupérer le dernier jour du mois en VB, par exemple
pour
la variable "18/09/2006" il me faut "30/09/2006", pour "09/20/2007" il
me
faut "28/02/2007" ...
Est-ce que quelqu'un connaît une fonction qui pourraît me convenir ou
déjà
fait un calcul de la sorte ?
Et pourtant, il est de carrure tout à fait normale..... mais aussi long qu'un jour sans Beaujolais... -)
-- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"Laurence" a écrit dans le message de news:
trop fort !
Merci !!
Bonjour
Principe: Le zéroième jour du mois étant le dernier jour du mois précédent. Donc, extraire l'année et le mois de la date considérée (fonctions year et month), puis utiliser dateserial en passant comme argument le mois qui suit, et comme valeur du jour 0
Function DernierJourDuMois(DateValeur As Date) As Date DernierJourDuMois = DateSerial(Year(DateValeur), Month(DateValeur) + 1, 0) End Function
Ok?
-- Pierre Fauconnier () (Skype: pierre_fauconnier) "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurence" a écrit dans le message de news:
Bonjour
Je souhaiterai récupérer en VB la date de fin de mois (sans passer par la formule FIN.MOIS() qui me fait planter mes calculs, je ne sais pas pourquoi alors au bout de 3 heures de réflexion j'ai laisser tomber et décidé de passer en VB). Donc je voudrais récupérer le dernier jour du mois en VB, par exemple pour la variable "18/09/2006" il me faut "30/09/2006", pour "09/20/2007" il me faut "28/02/2007" ... Est-ce que quelqu'un connaît une fonction qui pourraît me convenir ou déjà fait un calcul de la sorte ?
Merci infinement
Jacquouille
Bonsoir Issue de la même région de Liéch, voici la même chose en formule ... =(1&"/"&MOIS(A1)+1&"/"&ANNEE(A1))-1 à formater en date, oeuf corse.
-- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"Laurence" a écrit dans le message de news:
trop fort !
Merci !!
Bonjour
Principe: Le zéroième jour du mois étant le dernier jour du mois précédent. Donc, extraire l'année et le mois de la date considérée (fonctions year et month), puis utiliser dateserial en passant comme argument le mois qui suit, et comme valeur du jour 0
Function DernierJourDuMois(DateValeur As Date) As Date DernierJourDuMois = DateSerial(Year(DateValeur), Month(DateValeur) + 1, 0) End Function
Ok?
-- Pierre Fauconnier () (Skype: pierre_fauconnier) "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurence" a écrit dans le message de news:
Bonjour
Je souhaiterai récupérer en VB la date de fin de mois (sans passer par la formule FIN.MOIS() qui me fait planter mes calculs, je ne sais pas pourquoi alors au bout de 3 heures de réflexion j'ai laisser tomber et décidé de passer en VB). Donc je voudrais récupérer le dernier jour du mois en VB, par exemple pour la variable "18/09/2006" il me faut "30/09/2006", pour "09/20/2007" il me faut "28/02/2007" ... Est-ce que quelqu'un connaît une fonction qui pourraît me convenir ou déjà fait un calcul de la sorte ?
Merci infinement
Bonsoir
Issue de la même région de Liéch, voici la même chose en formule ...
=(1&"/"&MOIS(A1)+1&"/"&ANNEE(A1))-1
à formater en date, oeuf corse.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le message de
news: 34E53B03-E6EA-4B41-9BBC-A716981EB85E@microsoft.com...
trop fort !
Merci !!
Bonjour
Principe:
Le zéroième jour du mois étant le dernier jour du mois précédent.
Donc, extraire l'année et le mois de la date considérée (fonctions year
et
month), puis utiliser dateserial
en passant comme argument le mois qui suit, et comme valeur du jour 0
Function DernierJourDuMois(DateValeur As Date) As Date
DernierJourDuMois = DateSerial(Year(DateValeur), Month(DateValeur)
+
1, 0)
End Function
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le message
de
news: 569F2D5E-FB5D-45AD-BE89-45D747FDE305@microsoft.com...
Bonjour
Je souhaiterai récupérer en VB la date de fin de mois (sans passer par
la
formule FIN.MOIS() qui me fait planter mes calculs, je ne sais pas
pourquoi
alors au bout de 3 heures de réflexion j'ai laisser tomber et décidé de
passer en VB).
Donc je voudrais récupérer le dernier jour du mois en VB, par exemple
pour
la variable "18/09/2006" il me faut "30/09/2006", pour "09/20/2007" il
me
faut "28/02/2007" ...
Est-ce que quelqu'un connaît une fonction qui pourraît me convenir ou
déjà
fait un calcul de la sorte ?
Bonsoir Issue de la même région de Liéch, voici la même chose en formule ... =(1&"/"&MOIS(A1)+1&"/"&ANNEE(A1))-1 à formater en date, oeuf corse.
-- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"Laurence" a écrit dans le message de news:
trop fort !
Merci !!
Bonjour
Principe: Le zéroième jour du mois étant le dernier jour du mois précédent. Donc, extraire l'année et le mois de la date considérée (fonctions year et month), puis utiliser dateserial en passant comme argument le mois qui suit, et comme valeur du jour 0
Function DernierJourDuMois(DateValeur As Date) As Date DernierJourDuMois = DateSerial(Year(DateValeur), Month(DateValeur) + 1, 0) End Function
Ok?
-- Pierre Fauconnier () (Skype: pierre_fauconnier) "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurence" a écrit dans le message de news:
Bonjour
Je souhaiterai récupérer en VB la date de fin de mois (sans passer par la formule FIN.MOIS() qui me fait planter mes calculs, je ne sais pas pourquoi alors au bout de 3 heures de réflexion j'ai laisser tomber et décidé de passer en VB). Donc je voudrais récupérer le dernier jour du mois en VB, par exemple pour la variable "18/09/2006" il me faut "30/09/2006", pour "09/20/2007" il me faut "28/02/2007" ... Est-ce que quelqu'un connaît une fonction qui pourraît me convenir ou déjà fait un calcul de la sorte ?
Merci infinement
Pierre Fauconnier
;-)
Salut Jacquouille. J'espère que tu as bien digéré les "Wallonniades..."...
-- Pierre Fauconnier () (Skype: pierre_fauconnier) "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jacquouille" a écrit dans le message de news:
Et pourtant, il est de carrure tout à fait normale..... mais aussi long qu'un jour sans Beaujolais... -)
-- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"Laurence" a écrit dans le message de news:
trop fort !
Merci !!
Bonjour
Principe: Le zéroième jour du mois étant le dernier jour du mois précédent. Donc, extraire l'année et le mois de la date considérée (fonctions year et month), puis utiliser dateserial en passant comme argument le mois qui suit, et comme valeur du jour 0
Function DernierJourDuMois(DateValeur As Date) As Date DernierJourDuMois = DateSerial(Year(DateValeur), Month(DateValeur) + 1, 0) End Function
Ok?
-- Pierre Fauconnier () (Skype: pierre_fauconnier) "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurence" a écrit dans le message de news:
Bonjour
Je souhaiterai récupérer en VB la date de fin de mois (sans passer par la formule FIN.MOIS() qui me fait planter mes calculs, je ne sais pas pourquoi alors au bout de 3 heures de réflexion j'ai laisser tomber et décidé de passer en VB). Donc je voudrais récupérer le dernier jour du mois en VB, par exemple pour la variable "18/09/2006" il me faut "30/09/2006", pour "09/20/2007" il me faut "28/02/2007" ... Est-ce que quelqu'un connaît une fonction qui pourraît me convenir ou déjà fait un calcul de la sorte ?
Merci infinement
;-)
Salut Jacquouille. J'espère que tu as bien digéré les "Wallonniades..."...
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: eZ5RK602GHA.1256@TK2MSFTNGP02.phx.gbl...
Et pourtant, il est de carrure tout à fait normale.....
mais aussi long qu'un jour sans Beaujolais... -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le message de
news: 34E53B03-E6EA-4B41-9BBC-A716981EB85E@microsoft.com...
trop fort !
Merci !!
Bonjour
Principe:
Le zéroième jour du mois étant le dernier jour du mois précédent.
Donc, extraire l'année et le mois de la date considérée (fonctions year
et
month), puis utiliser dateserial
en passant comme argument le mois qui suit, et comme valeur du jour 0
Function DernierJourDuMois(DateValeur As Date) As Date
DernierJourDuMois = DateSerial(Year(DateValeur),
Month(DateValeur) +
1, 0)
End Function
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le message
de
news: 569F2D5E-FB5D-45AD-BE89-45D747FDE305@microsoft.com...
Bonjour
Je souhaiterai récupérer en VB la date de fin de mois (sans passer par
la
formule FIN.MOIS() qui me fait planter mes calculs, je ne sais pas
pourquoi
alors au bout de 3 heures de réflexion j'ai laisser tomber et décidé
de
passer en VB).
Donc je voudrais récupérer le dernier jour du mois en VB, par exemple
pour
la variable "18/09/2006" il me faut "30/09/2006", pour "09/20/2007" il
me
faut "28/02/2007" ...
Est-ce que quelqu'un connaît une fonction qui pourraît me convenir ou
déjà
fait un calcul de la sorte ?
Salut Jacquouille. J'espère que tu as bien digéré les "Wallonniades..."...
-- Pierre Fauconnier () (Skype: pierre_fauconnier) "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jacquouille" a écrit dans le message de news:
Et pourtant, il est de carrure tout à fait normale..... mais aussi long qu'un jour sans Beaujolais... -)
-- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"Laurence" a écrit dans le message de news:
trop fort !
Merci !!
Bonjour
Principe: Le zéroième jour du mois étant le dernier jour du mois précédent. Donc, extraire l'année et le mois de la date considérée (fonctions year et month), puis utiliser dateserial en passant comme argument le mois qui suit, et comme valeur du jour 0
Function DernierJourDuMois(DateValeur As Date) As Date DernierJourDuMois = DateSerial(Year(DateValeur), Month(DateValeur) + 1, 0) End Function
Ok?
-- Pierre Fauconnier () (Skype: pierre_fauconnier) "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Laurence" a écrit dans le message de news:
Bonjour
Je souhaiterai récupérer en VB la date de fin de mois (sans passer par la formule FIN.MOIS() qui me fait planter mes calculs, je ne sais pas pourquoi alors au bout de 3 heures de réflexion j'ai laisser tomber et décidé de passer en VB). Donc je voudrais récupérer le dernier jour du mois en VB, par exemple pour la variable "18/09/2006" il me faut "30/09/2006", pour "09/20/2007" il me faut "28/02/2007" ... Est-ce que quelqu'un connaît une fonction qui pourraît me convenir ou déjà fait un calcul de la sorte ?
