Bonjour
Je souhaite lorsque je saisi dans un textbox une date avoir dans un label
l'age en clair
j'ai cette procédure,mais elle me compte la date à l'envers lorsque le mois
> 6
Je n'arrive pas à trouver l'erreur
Je vous remercie
Didier
Dim y As Integer, m As Integer, d As Integer
Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text)
y = DateDiff("yyyy", dt, Now)
s = y & " années "
dt = DateAdd("yyyy", y, dt)
m = DateDiff("m", dt, Now)
If DateAdd("m", m, dt) > Now Then m = m - 1
s = s & m & " mois "
dt = DateAdd("m", m, dt)
d = DateDiff("d", dt, Now)
s = s & d & " jour(s)"
Label98.Caption = s
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
lSteph
Re, Pour rester fidèle à ton code Didier et si j'ai bien compris (la saisie: dd/mm/yyyy)
Private Sub TextBox1_AfterUpdate() Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = TextBox6 y = DateDiff("yyyy", dt, Now) s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
End Sub
'lSteph "Didier Novarin" a écrit dans le message de news:
Bonjour Je souhaite lorsque je saisi dans un textbox une date avoir dans un label l'age en clair j'ai cette procédure,mais elle me compte la date à l'envers lorsque le mois
6 Je n'arrive pas à trouver l'erreur
Je vous remercie Didier
Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text) y = DateDiff("yyyy", dt, Now) s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
Re,
Pour rester fidèle à ton code Didier et si j'ai bien compris (la saisie:
dd/mm/yyyy)
Private Sub TextBox1_AfterUpdate()
Dim y As Integer, m As Integer, d As Integer
Dim dt As Date, s As String
dt = TextBox6
y = DateDiff("yyyy", dt, Now)
s = y & " années "
dt = DateAdd("yyyy", y, dt)
m = DateDiff("m", dt, Now)
If DateAdd("m", m, dt) > Now Then m = m - 1
s = s & m & " mois "
dt = DateAdd("m", m, dt)
d = DateDiff("d", dt, Now)
s = s & d & " jour(s)"
Label98.Caption = s
End Sub
'lSteph
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: egrJIDQcGHA.3856@TK2MSFTNGP03.phx.gbl...
Bonjour
Je souhaite lorsque je saisi dans un textbox une date avoir dans un label
l'age en clair
j'ai cette procédure,mais elle me compte la date à l'envers lorsque le
mois
6
Je n'arrive pas à trouver l'erreur
Je vous remercie
Didier
Dim y As Integer, m As Integer, d As Integer
Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text)
y = DateDiff("yyyy", dt, Now)
s = y & " années "
dt = DateAdd("yyyy", y, dt)
m = DateDiff("m", dt, Now)
If DateAdd("m", m, dt) > Now Then m = m - 1
s = s & m & " mois "
dt = DateAdd("m", m, dt)
d = DateDiff("d", dt, Now)
s = s & d & " jour(s)"
Label98.Caption = s
Re, Pour rester fidèle à ton code Didier et si j'ai bien compris (la saisie: dd/mm/yyyy)
Private Sub TextBox1_AfterUpdate() Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = TextBox6 y = DateDiff("yyyy", dt, Now) s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
End Sub
'lSteph "Didier Novarin" a écrit dans le message de news:
Bonjour Je souhaite lorsque je saisi dans un textbox une date avoir dans un label l'age en clair j'ai cette procédure,mais elle me compte la date à l'envers lorsque le mois
6 Je n'arrive pas à trouver l'erreur
Je vous remercie Didier
Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text) y = DateDiff("yyyy", dt, Now) s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
Didier Novarin
Bonjour Lsteph et merci mais il y a un pb également lorsque je saisi ex : 24/05/76 J'ai dans le label : 30 années -1mois 12 jours je souhaiterai avoir 29 années etc. Didier
"lSteph" a écrit dans le message de news:
Re, Pour rester fidèle à ton code Didier et si j'ai bien compris (la saisie: dd/mm/yyyy)
Private Sub TextBox1_AfterUpdate() Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = TextBox6 y = DateDiff("yyyy", dt, Now) s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
End Sub
'lSteph "Didier Novarin" a écrit dans le message de news:
Bonjour Je souhaite lorsque je saisi dans un textbox une date avoir dans un label l'age en clair j'ai cette procédure,mais elle me compte la date à l'envers lorsque le mois
6 Je n'arrive pas à trouver l'erreur
Je vous remercie Didier
Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text) y = DateDiff("yyyy", dt, Now) s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
Bonjour Lsteph et merci
mais il y a un pb également
lorsque je saisi ex : 24/05/76
J'ai dans le label : 30 années -1mois 12 jours
je souhaiterai avoir 29 années etc.
Didier
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
edM29NQcGHA.3712@TK2MSFTNGP03.phx.gbl...
Re,
Pour rester fidèle à ton code Didier et si j'ai bien compris (la saisie:
dd/mm/yyyy)
Private Sub TextBox1_AfterUpdate()
Dim y As Integer, m As Integer, d As Integer
Dim dt As Date, s As String
dt = TextBox6
y = DateDiff("yyyy", dt, Now)
s = y & " années "
dt = DateAdd("yyyy", y, dt)
m = DateDiff("m", dt, Now)
If DateAdd("m", m, dt) > Now Then m = m - 1
s = s & m & " mois "
dt = DateAdd("m", m, dt)
d = DateDiff("d", dt, Now)
s = s & d & " jour(s)"
Label98.Caption = s
End Sub
'lSteph
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: egrJIDQcGHA.3856@TK2MSFTNGP03.phx.gbl...
Bonjour
Je souhaite lorsque je saisi dans un textbox une date avoir dans un label
l'age en clair
j'ai cette procédure,mais elle me compte la date à l'envers lorsque le
mois
6
Je n'arrive pas à trouver l'erreur
Je vous remercie
Didier
Dim y As Integer, m As Integer, d As Integer
Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text)
y = DateDiff("yyyy", dt, Now)
s = y & " années "
dt = DateAdd("yyyy", y, dt)
m = DateDiff("m", dt, Now)
If DateAdd("m", m, dt) > Now Then m = m - 1
s = s & m & " mois "
dt = DateAdd("m", m, dt)
d = DateDiff("d", dt, Now)
s = s & d & " jour(s)"
Label98.Caption = s
Bonjour Lsteph et merci mais il y a un pb également lorsque je saisi ex : 24/05/76 J'ai dans le label : 30 années -1mois 12 jours je souhaiterai avoir 29 années etc. Didier
"lSteph" a écrit dans le message de news:
Re, Pour rester fidèle à ton code Didier et si j'ai bien compris (la saisie: dd/mm/yyyy)
Private Sub TextBox1_AfterUpdate() Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = TextBox6 y = DateDiff("yyyy", dt, Now) s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
End Sub
'lSteph "Didier Novarin" a écrit dans le message de news:
Bonjour Je souhaite lorsque je saisi dans un textbox une date avoir dans un label l'age en clair j'ai cette procédure,mais elle me compte la date à l'envers lorsque le mois
6 Je n'arrive pas à trouver l'erreur
Je vous remercie Didier
Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text) y = DateDiff("yyyy", dt, Now) s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
lSteph
Re, Pas sûr car là je cafouilles un rien à cause des bissextiles:
Private Sub TextBox1_AfterUpdate()
Dim dt As Date, s As String, j As Long, m As Integer, a As Integer
dt = TextBox1 j = Now - dt a = Int(j / 365.25) m = Int(Int(j - (a * 365.25)) / 30.4)
s = a & " année(s) " & m & " mois " & j & " jour(s)" Label1.Caption = s
End Sub
"Didier Novarin" a écrit dans le message de news: %
Bonjour Lsteph et merci mais il y a un pb également lorsque je saisi ex : 24/05/76 J'ai dans le label : 30 années -1mois 12 jours je souhaiterai avoir 29 années etc. Didier
"lSteph" a écrit dans le message de news:
Re, Pour rester fidèle à ton code Didier et si j'ai bien compris (la saisie: dd/mm/yyyy)
Private Sub TextBox1_AfterUpdate() Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = TextBox6 y = DateDiff("yyyy", dt, Now) s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
End Sub
'lSteph "Didier Novarin" a écrit dans le message de news:
Bonjour Je souhaite lorsque je saisi dans un textbox une date avoir dans un label l'age en clair j'ai cette procédure,mais elle me compte la date à l'envers lorsque le mois
6 Je n'arrive pas à trouver l'erreur
Je vous remercie Didier
Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text) y = DateDiff("yyyy", dt, Now) s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
Re,
Pas sûr car là je cafouilles un rien à cause des bissextiles:
Private Sub TextBox1_AfterUpdate()
Dim dt As Date, s As String, j As Long, m As Integer, a As Integer
dt = TextBox1
j = Now - dt
a = Int(j / 365.25)
m = Int(Int(j - (a * 365.25)) / 30.4)
s = a & " année(s) " & m & " mois " & j & " jour(s)"
Label1.Caption = s
End Sub
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %237veCZQcGHA.1516@TK2MSFTNGP05.phx.gbl...
Bonjour Lsteph et merci
mais il y a un pb également
lorsque je saisi ex : 24/05/76
J'ai dans le label : 30 années -1mois 12 jours
je souhaiterai avoir 29 années etc.
Didier
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
edM29NQcGHA.3712@TK2MSFTNGP03.phx.gbl...
Re,
Pour rester fidèle à ton code Didier et si j'ai bien compris (la saisie:
dd/mm/yyyy)
Private Sub TextBox1_AfterUpdate()
Dim y As Integer, m As Integer, d As Integer
Dim dt As Date, s As String
dt = TextBox6
y = DateDiff("yyyy", dt, Now)
s = y & " années "
dt = DateAdd("yyyy", y, dt)
m = DateDiff("m", dt, Now)
If DateAdd("m", m, dt) > Now Then m = m - 1
s = s & m & " mois "
dt = DateAdd("m", m, dt)
d = DateDiff("d", dt, Now)
s = s & d & " jour(s)"
Label98.Caption = s
End Sub
'lSteph
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: egrJIDQcGHA.3856@TK2MSFTNGP03.phx.gbl...
Bonjour
Je souhaite lorsque je saisi dans un textbox une date avoir dans un
label l'age en clair
j'ai cette procédure,mais elle me compte la date à l'envers lorsque le
mois
6
Je n'arrive pas à trouver l'erreur
Je vous remercie
Didier
Dim y As Integer, m As Integer, d As Integer
Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text)
y = DateDiff("yyyy", dt, Now)
s = y & " années "
dt = DateAdd("yyyy", y, dt)
m = DateDiff("m", dt, Now)
If DateAdd("m", m, dt) > Now Then m = m - 1
s = s & m & " mois "
dt = DateAdd("m", m, dt)
d = DateDiff("d", dt, Now)
s = s & d & " jour(s)"
Label98.Caption = s
s = a & " année(s) " & m & " mois " & j & " jour(s)" Label1.Caption = s
End Sub
"Didier Novarin" a écrit dans le message de news: %
Bonjour Lsteph et merci mais il y a un pb également lorsque je saisi ex : 24/05/76 J'ai dans le label : 30 années -1mois 12 jours je souhaiterai avoir 29 années etc. Didier
"lSteph" a écrit dans le message de news:
Re, Pour rester fidèle à ton code Didier et si j'ai bien compris (la saisie: dd/mm/yyyy)
Private Sub TextBox1_AfterUpdate() Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = TextBox6 y = DateDiff("yyyy", dt, Now) s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
End Sub
'lSteph "Didier Novarin" a écrit dans le message de news:
Bonjour Je souhaite lorsque je saisi dans un textbox une date avoir dans un label l'age en clair j'ai cette procédure,mais elle me compte la date à l'envers lorsque le mois
6 Je n'arrive pas à trouver l'erreur
Je vous remercie Didier
Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text) y = DateDiff("yyyy", dt, Now) s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
docm
Bonjour Didier Novarin.
Comme ceci, cela semble fonctionner.
Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text) y = DateDiff("yyyy", dt, Now) If DateAdd("yyyy", y, dt) > Now Then y = y - 1 End If s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
docm
"Didier Novarin" wrote in message news:
Bonjour Je souhaite lorsque je saisi dans un textbox une date avoir dans un label l'age en clair j'ai cette procédure,mais elle me compte la date à l'envers lorsque le mois
6 Je n'arrive pas à trouver l'erreur
Je vous remercie Didier
Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text) y = DateDiff("yyyy", dt, Now) s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
Bonjour Didier Novarin.
Comme ceci, cela semble fonctionner.
Dim y As Integer, m As Integer, d As Integer
Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text)
y = DateDiff("yyyy", dt, Now)
If DateAdd("yyyy", y, dt) > Now Then
y = y - 1
End If
s = y & " années "
dt = DateAdd("yyyy", y, dt)
m = DateDiff("m", dt, Now)
If DateAdd("m", m, dt) > Now Then m = m - 1
s = s & m & " mois "
dt = DateAdd("m", m, dt)
d = DateDiff("d", dt, Now)
s = s & d & " jour(s)"
Label98.Caption = s
docm
"Didier Novarin" <didier.n@club-internet.fr> wrote in message
news:egrJIDQcGHA.3856@TK2MSFTNGP03.phx.gbl...
Bonjour
Je souhaite lorsque je saisi dans un textbox une date avoir dans un label
l'age en clair
j'ai cette procédure,mais elle me compte la date à l'envers lorsque le
mois
6
Je n'arrive pas à trouver l'erreur
Je vous remercie
Didier
Dim y As Integer, m As Integer, d As Integer
Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text)
y = DateDiff("yyyy", dt, Now)
s = y & " années "
dt = DateAdd("yyyy", y, dt)
m = DateDiff("m", dt, Now)
If DateAdd("m", m, dt) > Now Then m = m - 1
s = s & m & " mois "
dt = DateAdd("m", m, dt)
d = DateDiff("d", dt, Now)
s = s & d & " jour(s)"
Label98.Caption = s
Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text) y = DateDiff("yyyy", dt, Now) If DateAdd("yyyy", y, dt) > Now Then y = y - 1 End If s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
docm
"Didier Novarin" wrote in message news:
Bonjour Je souhaite lorsque je saisi dans un textbox une date avoir dans un label l'age en clair j'ai cette procédure,mais elle me compte la date à l'envers lorsque le mois
6 Je n'arrive pas à trouver l'erreur
Je vous remercie Didier
Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text) y = DateDiff("yyyy", dt, Now) s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
Didier Novarin
Merci beaucoup Lsteph ainsi que docm Cela fonctionne parfaitement ! C'est parfait ! Didier
"docm" a écrit dans le message de news:
Bonjour Didier Novarin.
Comme ceci, cela semble fonctionner.
Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text) y = DateDiff("yyyy", dt, Now) If DateAdd("yyyy", y, dt) > Now Then y = y - 1 End If s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
docm
"Didier Novarin" wrote in message news:
Bonjour Je souhaite lorsque je saisi dans un textbox une date avoir dans un label l'age en clair j'ai cette procédure,mais elle me compte la date à l'envers lorsque le mois
6 Je n'arrive pas à trouver l'erreur
Je vous remercie Didier
Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text) y = DateDiff("yyyy", dt, Now) s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
Merci beaucoup Lsteph ainsi que docm
Cela fonctionne parfaitement !
C'est parfait !
Didier
"docm" <no_spam@trust.net> a écrit dans le message de news:
el6oExRcGHA.5116@TK2MSFTNGP02.phx.gbl...
Bonjour Didier Novarin.
Comme ceci, cela semble fonctionner.
Dim y As Integer, m As Integer, d As Integer
Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text)
y = DateDiff("yyyy", dt, Now)
If DateAdd("yyyy", y, dt) > Now Then
y = y - 1
End If
s = y & " années "
dt = DateAdd("yyyy", y, dt)
m = DateDiff("m", dt, Now)
If DateAdd("m", m, dt) > Now Then m = m - 1
s = s & m & " mois "
dt = DateAdd("m", m, dt)
d = DateDiff("d", dt, Now)
s = s & d & " jour(s)"
Label98.Caption = s
docm
"Didier Novarin" <didier.n@club-internet.fr> wrote in message
news:egrJIDQcGHA.3856@TK2MSFTNGP03.phx.gbl...
Bonjour
Je souhaite lorsque je saisi dans un textbox une date avoir dans un label
l'age en clair
j'ai cette procédure,mais elle me compte la date à l'envers lorsque le
mois
6
Je n'arrive pas à trouver l'erreur
Je vous remercie
Didier
Dim y As Integer, m As Integer, d As Integer
Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text)
y = DateDiff("yyyy", dt, Now)
s = y & " années "
dt = DateAdd("yyyy", y, dt)
m = DateDiff("m", dt, Now)
If DateAdd("m", m, dt) > Now Then m = m - 1
s = s & m & " mois "
dt = DateAdd("m", m, dt)
d = DateDiff("d", dt, Now)
s = s & d & " jour(s)"
Label98.Caption = s
Merci beaucoup Lsteph ainsi que docm Cela fonctionne parfaitement ! C'est parfait ! Didier
"docm" a écrit dans le message de news:
Bonjour Didier Novarin.
Comme ceci, cela semble fonctionner.
Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text) y = DateDiff("yyyy", dt, Now) If DateAdd("yyyy", y, dt) > Now Then y = y - 1 End If s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s
docm
"Didier Novarin" wrote in message news:
Bonjour Je souhaite lorsque je saisi dans un textbox une date avoir dans un label l'age en clair j'ai cette procédure,mais elle me compte la date à l'envers lorsque le mois
6 Je n'arrive pas à trouver l'erreur
Je vous remercie Didier
Dim y As Integer, m As Integer, d As Integer Dim dt As Date, s As String
dt = CDate(Me.TextBox6.Text) y = DateDiff("yyyy", dt, Now) s = y & " années " dt = DateAdd("yyyy", y, dt) m = DateDiff("m", dt, Now) If DateAdd("m", m, dt) > Now Then m = m - 1 s = s & m & " mois " dt = DateAdd("m", m, dt) d = DateDiff("d", dt, Now) s = s & d & " jour(s)" Label98.Caption = s