Bonjour à tous.
Je cherche désespéremment le moyen en VB6 d'obtenir la somme d'une date
et d'une durée en minutes, tout ça exprimé en date. J'ai essayé avec
Cdate DateAdd Formart...
Si vous avez une idée...
Merci
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
Arnaud
Bonjour,
Je ne sais pas s'il existe un moyen direct mais ceci fonctionne :
Dim DateDébut As Date Dim DateFinale As Date Dim calcul As Long Dim durée As Long
durée = 1440 'minutes
'DateDébut = Date DateDébut = #9/24/2005#
calcul = CLng(DateDébut) 'conversion en jours calcul = calcul * 24 * 60 'conversion en minutes calcul = calcul + durée 'ajout de la durée en minutes calcul = calcul / 60 / 24 'conversion en jours DateFinale = CDate(calcul) 'conversion en minutes
Debug.Print calcul & " -> " & DateFinale
Bonne journée et ne vous trompez pas de forum.
-- Arnaud, http://cerbermail.com/?CMJMEZByvW
"Nick" a écrit dans le message de news:43351c13$0$21034$
Bonjour à tous. Je cherche désespéremment le moyen en VB6 d'obtenir la somme d'une date et d'une durée en minutes, tout ça exprimé en date. J'ai essayé avec Cdate DateAdd Formart... Si vous avez une idée... Merci
Bonjour,
Je ne sais pas s'il existe un moyen direct mais ceci fonctionne :
Dim DateDébut As Date
Dim DateFinale As Date
Dim calcul As Long
Dim durée As Long
durée = 1440 'minutes
'DateDébut = Date
DateDébut = #9/24/2005#
calcul = CLng(DateDébut) 'conversion en jours
calcul = calcul * 24 * 60 'conversion en minutes
calcul = calcul + durée 'ajout de la durée en minutes
calcul = calcul / 60 / 24 'conversion en jours
DateFinale = CDate(calcul) 'conversion en minutes
Debug.Print calcul & " -> " & DateFinale
Bonne journée et ne vous trompez pas de forum.
--
Arnaud,
http://cerbermail.com/?CMJMEZByvW
"Nick" <nick@nick.fr> a écrit dans le message de
news:43351c13$0$21034$626a14ce@news.free.fr...
Bonjour à tous.
Je cherche désespéremment le moyen en VB6 d'obtenir la somme d'une date
et d'une durée en minutes, tout ça exprimé en date. J'ai essayé avec
Cdate DateAdd Formart...
Si vous avez une idée...
Merci
Je ne sais pas s'il existe un moyen direct mais ceci fonctionne :
Dim DateDébut As Date Dim DateFinale As Date Dim calcul As Long Dim durée As Long
durée = 1440 'minutes
'DateDébut = Date DateDébut = #9/24/2005#
calcul = CLng(DateDébut) 'conversion en jours calcul = calcul * 24 * 60 'conversion en minutes calcul = calcul + durée 'ajout de la durée en minutes calcul = calcul / 60 / 24 'conversion en jours DateFinale = CDate(calcul) 'conversion en minutes
Debug.Print calcul & " -> " & DateFinale
Bonne journée et ne vous trompez pas de forum.
-- Arnaud, http://cerbermail.com/?CMJMEZByvW
"Nick" a écrit dans le message de news:43351c13$0$21034$
Bonjour à tous. Je cherche désespéremment le moyen en VB6 d'obtenir la somme d'une date et d'une durée en minutes, tout ça exprimé en date. J'ai essayé avec Cdate DateAdd Formart... Si vous avez une idée... Merci
