Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de naissance
j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance, Date)
mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de naissance
j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance, Date)
mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de naissance
j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance, Date)
mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de
naissance j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance,
Date) mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de
naissance j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance,
Date) mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de
naissance j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance,
Date) mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Bonjour,
J'ai mis à votre intention un bout de programme
qui calcule le nbre d'année, de mois et de jours
entre 2 dates.
A vous de jouer avec les dates de la ligne call age(
puis de modifier la présentation pour en faire ce que vous voulez :
http://users.skynet.be/DAVID/Fichiers_Tempo.htm
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
"Jo" a écrit dans le message de news:Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de naissance
j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance, Date)
mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Bonjour,
J'ai mis à votre intention un bout de programme
qui calcule le nbre d'année, de mois et de jours
entre 2 dates.
A vous de jouer avec les dates de la ligne call age(
puis de modifier la présentation pour en faire ce que vous voulez :
http://users.skynet.be/DAVID/Fichiers_Tempo.htm
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
"Jo" <dj66@hotmail.fr> a écrit dans le message de news:
FA44BB18-7D61-4BB5-B74C-187EE7D00312@microsoft.com...
Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de naissance
j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance, Date)
mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Bonjour,
J'ai mis à votre intention un bout de programme
qui calcule le nbre d'année, de mois et de jours
entre 2 dates.
A vous de jouer avec les dates de la ligne call age(
puis de modifier la présentation pour en faire ce que vous voulez :
http://users.skynet.be/DAVID/Fichiers_Tempo.htm
--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
"Jo" a écrit dans le message de news:Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de naissance
j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance, Date)
mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Jo wrote:Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de
naissance j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance,
Date) mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Hello,
les articles 84 et 154 de la FAQ contiennent de nombreux exemples
des fonctions de Date de VB:
http://faq.vb.free.fr/index.php?question
http://faq.vb.free.fr/index.php?question4
Ces articles incluent également de très nombreux liens vers
la documentation de ces fonctions de dates.
Enfin ces articles montrent comment créer de nouvelles fonctions
à partir des fonctions de base.
Pour en revenir à ton cas précis, une bonne implémentation
a été donnée par Renfield sur VBFrance:
Age = val(datediff("D", DateNaissance, DateJour)/365.25)
Tu peux retrouver la discussion complète ici:
http://www.vbfrance.com/codes/CALCUL-AGE_38683.aspx
Bonne prog!
Cordialement;
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Jo wrote:
Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de
naissance j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance,
Date) mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Hello,
les articles 84 et 154 de la FAQ contiennent de nombreux exemples
des fonctions de Date de VB:
http://faq.vb.free.fr/index.php?question
http://faq.vb.free.fr/index.php?question4
Ces articles incluent également de très nombreux liens vers
la documentation de ces fonctions de dates.
Enfin ces articles montrent comment créer de nouvelles fonctions
à partir des fonctions de base.
Pour en revenir à ton cas précis, une bonne implémentation
a été donnée par Renfield sur VBFrance:
Age = val(datediff("D", DateNaissance, DateJour)/365.25)
Tu peux retrouver la discussion complète ici:
http://www.vbfrance.com/codes/CALCUL-AGE_38683.aspx
Bonne prog!
Cordialement;
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
Jo wrote:Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de
naissance j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance,
Date) mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Hello,
les articles 84 et 154 de la FAQ contiennent de nombreux exemples
des fonctions de Date de VB:
http://faq.vb.free.fr/index.php?question
http://faq.vb.free.fr/index.php?question4
Ces articles incluent également de très nombreux liens vers
la documentation de ces fonctions de dates.
Enfin ces articles montrent comment créer de nouvelles fonctions
à partir des fonctions de base.
Pour en revenir à ton cas précis, une bonne implémentation
a été donnée par Renfield sur VBFrance:
Age = val(datediff("D", DateNaissance, DateJour)/365.25)
Tu peux retrouver la discussion complète ici:
http://www.vbfrance.com/codes/CALCUL-AGE_38683.aspx
Bonne prog!
Cordialement;
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Bonjour,
Merci pour cette reponse, j'avais essai:
iÚteDiff("d", RcPersonne!DateNaissance, Date) / 365)
donc sans le val et le .25
mais le resultat etait faux (ex: 18/07/2008 me donnait 5)
de meme avec i=Val(DateDiff("d", RcPersonne!DateNaissance, Date) / 365.25)
donc avec ton exemple voici ce que j'ai:
je controle si le mois/année est different de la date pour eviter ce 5
ou autre
If Mid(RcPersonne!DateNaissance, 4) <> Mid(Date, 4) Then
i=Val(DateDiff("D", RcPersonne!DateNaissance, Date) / 365.25)
Else
i=0
End If
avec ca je pense que sa ira car la c'est vrai il ne me faut que l'age
pour ce logiciel
mais l'exemple de david me servira pour un autre logiciel ou la j'aurais
besoin de l'age/jour/mois
merci a vous deux pour vos exemples
Jo
"Jean-marc" a écrit dans le message de groupe de
discussion : 488330e7$0$2856$Jo wrote:Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de
naissance j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance,
Date) mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Hello,
les articles 84 et 154 de la FAQ contiennent de nombreux exemples
des fonctions de Date de VB:
http://faq.vb.free.fr/index.php?question
http://faq.vb.free.fr/index.php?question4
Ces articles incluent également de très nombreux liens vers
la documentation de ces fonctions de dates.
Enfin ces articles montrent comment créer de nouvelles fonctions
à partir des fonctions de base.
Pour en revenir à ton cas précis, une bonne implémentation
a été donnée par Renfield sur VBFrance:
Age = val(datediff("D", DateNaissance, DateJour)/365.25)
Tu peux retrouver la discussion complète ici:
http://www.vbfrance.com/codes/CALCUL-AGE_38683.aspx
Bonne prog!
Cordialement;
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Bonjour,
Merci pour cette reponse, j'avais essai:
iÚteDiff("d", RcPersonne!DateNaissance, Date) / 365)
donc sans le val et le .25
mais le resultat etait faux (ex: 18/07/2008 me donnait 5)
de meme avec i=Val(DateDiff("d", RcPersonne!DateNaissance, Date) / 365.25)
donc avec ton exemple voici ce que j'ai:
je controle si le mois/année est different de la date pour eviter ce 5
ou autre
If Mid(RcPersonne!DateNaissance, 4) <> Mid(Date, 4) Then
i=Val(DateDiff("D", RcPersonne!DateNaissance, Date) / 365.25)
Else
i=0
End If
avec ca je pense que sa ira car la c'est vrai il ne me faut que l'age
pour ce logiciel
mais l'exemple de david me servira pour un autre logiciel ou la j'aurais
besoin de l'age/jour/mois
merci a vous deux pour vos exemples
Jo
"Jean-marc" <jm@nowhere.invalid> a écrit dans le message de groupe de
discussion : 488330e7$0$2856$ba620e4c@news.skynet.be...
Jo wrote:
Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de
naissance j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance,
Date) mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Hello,
les articles 84 et 154 de la FAQ contiennent de nombreux exemples
des fonctions de Date de VB:
http://faq.vb.free.fr/index.php?question
http://faq.vb.free.fr/index.php?question4
Ces articles incluent également de très nombreux liens vers
la documentation de ces fonctions de dates.
Enfin ces articles montrent comment créer de nouvelles fonctions
à partir des fonctions de base.
Pour en revenir à ton cas précis, une bonne implémentation
a été donnée par Renfield sur VBFrance:
Age = val(datediff("D", DateNaissance, DateJour)/365.25)
Tu peux retrouver la discussion complète ici:
http://www.vbfrance.com/codes/CALCUL-AGE_38683.aspx
Bonne prog!
Cordialement;
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
Bonjour,
Merci pour cette reponse, j'avais essai:
iÚteDiff("d", RcPersonne!DateNaissance, Date) / 365)
donc sans le val et le .25
mais le resultat etait faux (ex: 18/07/2008 me donnait 5)
de meme avec i=Val(DateDiff("d", RcPersonne!DateNaissance, Date) / 365.25)
donc avec ton exemple voici ce que j'ai:
je controle si le mois/année est different de la date pour eviter ce 5
ou autre
If Mid(RcPersonne!DateNaissance, 4) <> Mid(Date, 4) Then
i=Val(DateDiff("D", RcPersonne!DateNaissance, Date) / 365.25)
Else
i=0
End If
avec ca je pense que sa ira car la c'est vrai il ne me faut que l'age
pour ce logiciel
mais l'exemple de david me servira pour un autre logiciel ou la j'aurais
besoin de l'age/jour/mois
merci a vous deux pour vos exemples
Jo
"Jean-marc" a écrit dans le message de groupe de
discussion : 488330e7$0$2856$Jo wrote:Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de
naissance j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance,
Date) mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Hello,
les articles 84 et 154 de la FAQ contiennent de nombreux exemples
des fonctions de Date de VB:
http://faq.vb.free.fr/index.php?question
http://faq.vb.free.fr/index.php?question4
Ces articles incluent également de très nombreux liens vers
la documentation de ces fonctions de dates.
Enfin ces articles montrent comment créer de nouvelles fonctions
à partir des fonctions de base.
Pour en revenir à ton cas précis, une bonne implémentation
a été donnée par Renfield sur VBFrance:
Age = val(datediff("D", DateNaissance, DateJour)/365.25)
Tu peux retrouver la discussion complète ici:
http://www.vbfrance.com/codes/CALCUL-AGE_38683.aspx
Bonne prog!
Cordialement;
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Bonjour,
J'arrive après la bataille mais pour avoir l'age en année pleine, on peut
ausssi utiliser la formule :
Age = DateDiff("yyyy", LaDate, Date) _
+ (Format(Date, "mmdd") < Format(LaDate, "mmdd"))
Ex:
MsgBox DateDiff("yyyy", #10/21/2006#, Date) _
+ (Format(Date, "mmdd") < Format(#10/21/2006#, "mmdd"))
renverra 1
Jo a écrit :Bonjour,
Merci pour cette reponse, j'avais essai:
iÚteDiff("d", RcPersonne!DateNaissance, Date) / 365)
donc sans le val et le .25
mais le resultat etait faux (ex: 18/07/2008 me donnait 5)
de meme avec i=Val(DateDiff("d", RcPersonne!DateNaissance, Date) /
365.25)
donc avec ton exemple voici ce que j'ai:
je controle si le mois/année est different de la date pour eviter ce 5
ou autre
If Mid(RcPersonne!DateNaissance, 4) <> Mid(Date, 4) Then
i=Val(DateDiff("D", RcPersonne!DateNaissance, Date) / 365.25)
Else
i=0
End If
avec ca je pense que sa ira car la c'est vrai il ne me faut que l'age
pour ce logiciel
mais l'exemple de david me servira pour un autre logiciel ou la j'aurais
besoin de l'age/jour/mois
merci a vous deux pour vos exemples
Jo
"Jean-marc" a écrit dans le message de groupe de
discussion : 488330e7$0$2856$Jo wrote:Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de
naissance j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance,
Date) mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Hello,
les articles 84 et 154 de la FAQ contiennent de nombreux exemples
des fonctions de Date de VB:
http://faq.vb.free.fr/index.php?question
http://faq.vb.free.fr/index.php?question4
Ces articles incluent également de très nombreux liens vers
la documentation de ces fonctions de dates.
Enfin ces articles montrent comment créer de nouvelles fonctions
à partir des fonctions de base.
Pour en revenir à ton cas précis, une bonne implémentation
a été donnée par Renfield sur VBFrance:
Age = val(datediff("D", DateNaissance, DateJour)/365.25)
Tu peux retrouver la discussion complète ici:
http://www.vbfrance.com/codes/CALCUL-AGE_38683.aspx
Bonne prog!
Cordialement;
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
J'arrive après la bataille mais pour avoir l'age en année pleine, on peut
ausssi utiliser la formule :
Age = DateDiff("yyyy", LaDate, Date) _
+ (Format(Date, "mmdd") < Format(LaDate, "mmdd"))
Ex:
MsgBox DateDiff("yyyy", #10/21/2006#, Date) _
+ (Format(Date, "mmdd") < Format(#10/21/2006#, "mmdd"))
renverra 1
Jo a écrit :
Bonjour,
Merci pour cette reponse, j'avais essai:
iÚteDiff("d", RcPersonne!DateNaissance, Date) / 365)
donc sans le val et le .25
mais le resultat etait faux (ex: 18/07/2008 me donnait 5)
de meme avec i=Val(DateDiff("d", RcPersonne!DateNaissance, Date) /
365.25)
donc avec ton exemple voici ce que j'ai:
je controle si le mois/année est different de la date pour eviter ce 5
ou autre
If Mid(RcPersonne!DateNaissance, 4) <> Mid(Date, 4) Then
i=Val(DateDiff("D", RcPersonne!DateNaissance, Date) / 365.25)
Else
i=0
End If
avec ca je pense que sa ira car la c'est vrai il ne me faut que l'age
pour ce logiciel
mais l'exemple de david me servira pour un autre logiciel ou la j'aurais
besoin de l'age/jour/mois
merci a vous deux pour vos exemples
Jo
"Jean-marc" <jm@nowhere.invalid> a écrit dans le message de groupe de
discussion : 488330e7$0$2856$ba620e4c@news.skynet.be...
Jo wrote:
Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de
naissance j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance,
Date) mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Hello,
les articles 84 et 154 de la FAQ contiennent de nombreux exemples
des fonctions de Date de VB:
http://faq.vb.free.fr/index.php?question
http://faq.vb.free.fr/index.php?question4
Ces articles incluent également de très nombreux liens vers
la documentation de ces fonctions de dates.
Enfin ces articles montrent comment créer de nouvelles fonctions
à partir des fonctions de base.
Pour en revenir à ton cas précis, une bonne implémentation
a été donnée par Renfield sur VBFrance:
Age = val(datediff("D", DateNaissance, DateJour)/365.25)
Tu peux retrouver la discussion complète ici:
http://www.vbfrance.com/codes/CALCUL-AGE_38683.aspx
Bonne prog!
Cordialement;
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
J'arrive après la bataille mais pour avoir l'age en année pleine, on peut
ausssi utiliser la formule :
Age = DateDiff("yyyy", LaDate, Date) _
+ (Format(Date, "mmdd") < Format(LaDate, "mmdd"))
Ex:
MsgBox DateDiff("yyyy", #10/21/2006#, Date) _
+ (Format(Date, "mmdd") < Format(#10/21/2006#, "mmdd"))
renverra 1
Jo a écrit :Bonjour,
Merci pour cette reponse, j'avais essai:
iÚteDiff("d", RcPersonne!DateNaissance, Date) / 365)
donc sans le val et le .25
mais le resultat etait faux (ex: 18/07/2008 me donnait 5)
de meme avec i=Val(DateDiff("d", RcPersonne!DateNaissance, Date) /
365.25)
donc avec ton exemple voici ce que j'ai:
je controle si le mois/année est different de la date pour eviter ce 5
ou autre
If Mid(RcPersonne!DateNaissance, 4) <> Mid(Date, 4) Then
i=Val(DateDiff("D", RcPersonne!DateNaissance, Date) / 365.25)
Else
i=0
End If
avec ca je pense que sa ira car la c'est vrai il ne me faut que l'age
pour ce logiciel
mais l'exemple de david me servira pour un autre logiciel ou la j'aurais
besoin de l'age/jour/mois
merci a vous deux pour vos exemples
Jo
"Jean-marc" a écrit dans le message de groupe de
discussion : 488330e7$0$2856$Jo wrote:Bonjour a tour,
je cherche le moyen de calculer l'ages a partir de la date de
naissance j'ai essayé i = DateDiff("yyyy", RcPersonne!DateNaissance,
Date) mais sa ne tient pas compte du jour et du mois donc c'est faux
et suis perdu dans le format des dates si quelqu'un aurait un
exemple pour m'aider
Merci
Hello,
les articles 84 et 154 de la FAQ contiennent de nombreux exemples
des fonctions de Date de VB:
http://faq.vb.free.fr/index.php?question
http://faq.vb.free.fr/index.php?question4
Ces articles incluent également de très nombreux liens vers
la documentation de ces fonctions de dates.
Enfin ces articles montrent comment créer de nouvelles fonctions
à partir des fonctions de base.
Pour en revenir à ton cas précis, une bonne implémentation
a été donnée par Renfield sur VBFrance:
Age = val(datediff("D", DateNaissance, DateJour)/365.25)
Tu peux retrouver la discussion complète ici:
http://www.vbfrance.com/codes/CALCUL-AGE_38683.aspx
Bonne prog!
Cordialement;
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
je ne sais que dire tous les exemples qui
m'ont etait donné fonctionne parfaitement
et vous remercie tous les 3 de vos reponses
celui ci a l'avantage d'etre plus court
que celui que j"avais realiser avec les exemples
pour le resultat attendu.
je ne sais que dire tous les exemples qui
m'ont etait donné fonctionne parfaitement
et vous remercie tous les 3 de vos reponses
celui ci a l'avantage d'etre plus court
que celui que j"avais realiser avec les exemples
pour le resultat attendu.
je ne sais que dire tous les exemples qui
m'ont etait donné fonctionne parfaitement
et vous remercie tous les 3 de vos reponses
celui ci a l'avantage d'etre plus court
que celui que j"avais realiser avec les exemples
pour le resultat attendu.
Bonsour® Jo avec ferveur ;o))) vous nous disiez :je ne sais que dire tous les exemples qui
m'ont etait donné fonctionne parfaitement
et vous remercie tous les 3 de vos reponses
celui ci a l'avantage d'etre plus court
que celui que j"avais realiser avec les exemples
pour le resultat attendu.
;o)))
alors une derniere pour le fun
Msgbox Int((DateRef-DateN) / 365.25)&" an(s) "&Int(MOD((DateRef-DateN) / (365.25 / 12),12)) & " mois "&Int(MOD((DateRef-DateN), 365.25 / 12))& " jour(s)"
Bonsour® Jo avec ferveur ;o))) vous nous disiez :
je ne sais que dire tous les exemples qui
m'ont etait donné fonctionne parfaitement
et vous remercie tous les 3 de vos reponses
celui ci a l'avantage d'etre plus court
que celui que j"avais realiser avec les exemples
pour le resultat attendu.
;o)))
alors une derniere pour le fun
Msgbox Int((DateRef-DateN) / 365.25)&" an(s) "&Int(MOD((DateRef-DateN) / (365.25 / 12),12)) & " mois "&Int(MOD((DateRef-DateN), 365.25 / 12))& " jour(s)"
Bonsour® Jo avec ferveur ;o))) vous nous disiez :je ne sais que dire tous les exemples qui
m'ont etait donné fonctionne parfaitement
et vous remercie tous les 3 de vos reponses
celui ci a l'avantage d'etre plus court
que celui que j"avais realiser avec les exemples
pour le resultat attendu.
;o)))
alors une derniere pour le fun
Msgbox Int((DateRef-DateN) / 365.25)&" an(s) "&Int(MOD((DateRef-DateN) / (365.25 / 12),12)) & " mois "&Int(MOD((DateRef-DateN), 365.25 / 12))& " jour(s)"
Tssss, Tssss, nous sommes sur un forum VB6, pas Excel ;-)
mais j'aime bien :
MsgBox Int((DateRef - DateN) / 365.25) & " an(s) " & _
Int((DateRef - DateN) / (365.25 / 12) Mod 12) & " mois " & _
Int((DateRef - DateN) Mod (365.25 / 12)) & " jour(s)"
qui me rajeunis de 2 jours, toujours ça de pris :-D
Tssss, Tssss, nous sommes sur un forum VB6, pas Excel ;-)
mais j'aime bien :
MsgBox Int((DateRef - DateN) / 365.25) & " an(s) " & _
Int((DateRef - DateN) / (365.25 / 12) Mod 12) & " mois " & _
Int((DateRef - DateN) Mod (365.25 / 12)) & " jour(s)"
qui me rajeunis de 2 jours, toujours ça de pris :-D
Tssss, Tssss, nous sommes sur un forum VB6, pas Excel ;-)
mais j'aime bien :
MsgBox Int((DateRef - DateN) / 365.25) & " an(s) " & _
Int((DateRef - DateN) / (365.25 / 12) Mod 12) & " mois " & _
Int((DateRef - DateN) Mod (365.25 / 12)) & " jour(s)"
qui me rajeunis de 2 jours, toujours ça de pris :-D
VB , VBA , C ou autres langages seul l'age en jours est pertinent et si gnificatif ...
;o)))
VB , VBA , C ou autres langages seul l'age en jours est pertinent et si gnificatif ...
;o)))
VB , VBA , C ou autres langages seul l'age en jours est pertinent et si gnificatif ...
;o)))