OVH Cloud OVH Cloud

Décompte

8 réponses
Avatar
Didier Novarin
Bonsoir
sur un userform, je désire faire la chose suivante :
saisir dans un textbox une date future ex : 18/11/2005, puis une heure ex
11h30
puis après appuis sur un commandbutton, avoir dans un textbox ou label le
temps qui reste en jours, heures minutes et secondes à partir de maintenant.
Merci beaucoup
Didier

8 réponses

Avatar
tiah
bonjour !

sur le site http://www.excelabo.net

tu as un très bon exemple qui fait en plein ça ! :)

tiah.
Avatar
Didier Novarin
Bonjour Tiah et merci.
Justement, je n'ai rien trouver sur Excelabo.
J'ai sans doute mal cherché.
Pourrais-tu de ce fait m'indiquer le lien
Didier

"tiah" a écrit dans le message de news:

bonjour !

sur le site http://www.excelabo.net

tu as un très bon exemple qui fait en plein ça ! :)

tiah.
Avatar
tiah
http://www.excelabo.net/xl/dates.php#diffdates

tu as une procédure qui calcule la différence entre deux dates, et
qui donne comme résultat
X ans Y mois et Z jours
Avatar
Didier Novarin
Re, Tiah, je te remercie,
mais cela ne correspond pas à ce que je recherche, car je souhaite avoir la
date et l'heure
Didier


"tiah" a écrit dans le message de news:

http://www.excelabo.net/xl/dates.php#diffdates

tu as une procédure qui calcule la différence entre deux dates, et
qui donne comme résultat
X ans Y mois et Z jours
Avatar
Didier Novarin
Je te remercie beaucoup et te souhaite une très bonne soirée
Didier

"docm" a écrit dans le message de news:

Bonjour.

Voici trouvé sur le site de FS : http://frederic.sigonneau.free.fr/

'différence en heures, minutes, secondes entre deux dates ou heures

Public Function TimeDiff(rng1 As Range, rng2 As Range)
'Tom Ogilvy, mpep
'renvoie du texte
Dim lngHr As Long, lngMin As Long
Dim lngSec As Long

lngHr = DateDiff("h", rng1.Value, rng2.Value)
lngMin = DateDiff("n", rng1.Value, rng2.Value) Mod 60
lngSec = DateDiff("s", rng1.Value, rng2.Value) Mod 60

TimeDiff = Format(lngHr, "00") & ":" & _
Format(lngMin, "00") & ":" & _
Format(lngSec, "00")
End Function

docm

"Didier Novarin" a écrit dans le message news:
e#
Bonsoir
sur un userform, je désire faire la chose suivante :
saisir dans un textbox une date future ex : 18/11/2005, puis une heure ex
11h30
puis après appuis sur un commandbutton, avoir dans un textbox ou label le
temps qui reste en jours, heures minutes et secondes à partir de
maintenant.

Merci beaucoup
Didier








Avatar
docm
Bonjour.

Voici trouvé sur le site de FS : http://frederic.sigonneau.free.fr/

'différence en heures, minutes, secondes entre deux dates ou heures

Public Function TimeDiff(rng1 As Range, rng2 As Range)
'Tom Ogilvy, mpep
'renvoie du texte
Dim lngHr As Long, lngMin As Long
Dim lngSec As Long

lngHr = DateDiff("h", rng1.Value, rng2.Value)
lngMin = DateDiff("n", rng1.Value, rng2.Value) Mod 60
lngSec = DateDiff("s", rng1.Value, rng2.Value) Mod 60

TimeDiff = Format(lngHr, "00") & ":" & _
Format(lngMin, "00") & ":" & _
Format(lngSec, "00")
End Function

docm

"Didier Novarin" a écrit dans le message news:
e#
Bonsoir
sur un userform, je désire faire la chose suivante :
saisir dans un textbox une date future ex : 18/11/2005, puis une heure ex
11h30
puis après appuis sur un commandbutton, avoir dans un textbox ou label le
temps qui reste en jours, heures minutes et secondes à partir de
maintenant.

Merci beaucoup
Didier




Avatar
Modeste
Bonsour®
Didier Novarin wrote:
mais cela ne correspond pas à ce que je recherche, car je souhaite avoir
la
date et l'heure


alors celui-ci devrait convenir ;o)))
http://www.excelabo.net/moteurs/compteclic.php?nom=rd-retraite



"tiah" a écrit dans le message de news:

http://www.excelabo.net/xl/dates.php#diffdates

tu as une procédure qui calcule la différence entre deux dates, et
qui donne comme résultat
X ans Y mois et Z jours


--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042

Avatar
Modeste
Bonsour®
Didier Novarin wrote:
mais cela ne correspond pas à ce que je recherche, car je souhaite avoir
la
date et l'heure


alors celui-ci devrait convenir ;o)))
http://www.excelabo.net/moteurs/compteclic.php?nom=rd-retraite

"tiah" a écrit dans le message de news:

http://www.excelabo.net/xl/dates.php#diffdates

tu as une procédure qui calcule la différence entre deux dates, et
qui donne comme résultat
X ans Y mois et Z jours


--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042