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,
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 date
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,
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 date
"Nick" <nick@nick.fr> a écrit dans le message de
news:uGslmBPwFHA.2924@TK2MSFTNGP15.phx.gbl...
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
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 date
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
Nick
Bonsoir je me suis mal exprimé. En fait je cherche à faire ceci:
Date1=Now (sous format DD/MM/YYYY HH:MM:SS) TimeOut (sous format MM)
Date2Úte1+TimeOut (DATE2 sous format DD/MM/YYYY HH:MM:SS)
Il me semblait qu'il existait des fonctions avancées d'opérations sur dates...
Arnaud a écrit :
Bonjour,
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 date
Debug.Print calcul & " -> " & DateFinale
Bonne journée
Bonsoir
je me suis mal exprimé. En fait je cherche à faire ceci:
Date1=Now (sous format DD/MM/YYYY HH:MM:SS)
TimeOut (sous format MM)
Date2Úte1+TimeOut (DATE2 sous format DD/MM/YYYY HH:MM:SS)
Il me semblait qu'il existait des fonctions avancées d'opérations sur
dates...
Arnaud a écrit :
Bonjour,
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 date
Bonsoir je me suis mal exprimé. En fait je cherche à faire ceci:
Date1=Now (sous format DD/MM/YYYY HH:MM:SS) TimeOut (sous format MM)
Date2Úte1+TimeOut (DATE2 sous format DD/MM/YYYY HH:MM:SS)
Il me semblait qu'il existait des fonctions avancées d'opérations sur dates...
Arnaud a écrit :
Bonjour,
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 date
Debug.Print calcul & " -> " & DateFinale
Bonne journée
fco39
"Nick" wrote:
Bonsoir je me suis mal exprimé. En fait je cherche à faire ceci:
Date1=Now (sous format DD/MM/YYYY HH:MM:SS) TimeOut (sous format MM)
Date2 = DateAdd("n",TimeOut,Now)
c'est tout .. pour ajouter une valeur autre que des minutes mettre entre "" les valeurs suivantes : aaaa Année t Trimestre m Mois a Jour de l'année j Jour e Jour de la semaine ee Semaine h Heure n Minute s Seconde
François
Date2Úte1+TimeOut (DATE2 sous format DD/MM/YYYY HH:MM:SS)
Il me semblait qu'il existait des fonctions avancées d'opérations sur dates...
Arnaud a écrit : > Bonjour, > > 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 date > > Debug.Print calcul & " -> " & DateFinale > > Bonne journée
"Nick" wrote:
Bonsoir
je me suis mal exprimé. En fait je cherche à faire ceci:
Date1=Now (sous format DD/MM/YYYY HH:MM:SS)
TimeOut (sous format MM)
Date2 = DateAdd("n",TimeOut,Now)
c'est tout ..
pour ajouter une valeur autre que des minutes mettre entre "" les valeurs
suivantes :
aaaa Année
t Trimestre
m Mois
a Jour de l'année
j Jour
e Jour de la semaine
ee Semaine
h Heure
n Minute
s Seconde
François
Date2Úte1+TimeOut (DATE2 sous format DD/MM/YYYY HH:MM:SS)
Il me semblait qu'il existait des fonctions avancées d'opérations sur
dates...
Arnaud a écrit :
> Bonjour,
>
> 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 date
>
> Debug.Print calcul & " -> " & DateFinale
>
> Bonne journée
Bonsoir je me suis mal exprimé. En fait je cherche à faire ceci:
Date1=Now (sous format DD/MM/YYYY HH:MM:SS) TimeOut (sous format MM)
Date2 = DateAdd("n",TimeOut,Now)
c'est tout .. pour ajouter une valeur autre que des minutes mettre entre "" les valeurs suivantes : aaaa Année t Trimestre m Mois a Jour de l'année j Jour e Jour de la semaine ee Semaine h Heure n Minute s Seconde
François
Date2Úte1+TimeOut (DATE2 sous format DD/MM/YYYY HH:MM:SS)
Il me semblait qu'il existait des fonctions avancées d'opérations sur dates...
Arnaud a écrit : > Bonjour, > > 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 date > > Debug.Print calcul & " -> " & DateFinale > > Bonne journée
