Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Pb heure

4 réponses
Avatar
JCM
bonjour

dans une boucle je veux additionner 30 minutes =E0 heure et=20
obtenir un r=E9sultat STR, voici le code :

Dim heure As String
Dim tranche As String


heure =3D CDate(Format("07:00", "hh mm"))
tranche =3D CDate(Format("00:30, "hh mm"))
heure =3Dheure+tranche

j'obtiens "07:30:00" et je voudrais "07:00"

Ou est l'erreur
Cordialement
JCM

4 réponses

Avatar
surfeur75
Bonjour,
Voici Monsieur:

Dim HH As Date
Dim MN As Date
HH = "7:00"
MN = "0:30"
HH = HH + MN
MsgBox Format(HH, "hh:mm")

Sinon, 2 string, de préférence "&", mais à part ça, je ne crois pas que l'on
puisse additionner "mathématiquement" le contenu de 2 strings...
--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
remplace AROBASE et POINT par leur vrai signe
Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!


"JCM" a écrit dans le message de news:
060201c3dbff$47d6aaa0$
bonjour

dans une boucle je veux additionner 30 minutes à heure et
obtenir un résultat STR, voici le code :

Dim heure As String
Dim tranche As String


heure = CDate(Format("07:00", "hh mm"))
tranche = CDate(Format("00:30, "hh mm"))
heure =heure+tranche

j'obtiens "07:30:00" et je voudrais "07:00"

Ou est l'erreur
Cordialement
JCM
Avatar
JCM
Bonjour et merci pour ta réponse

Cela marche, toutefois je n'ai pas trouvé comment
convertir HH en une variable Integer pour avoir 7

Autre question

dans un MSFlexgride j'écris
MS.FixedAlignment(0) = 4
pour centrer le texte de la colonne 0 et cela ne le centre
pas, peux-tu me repondre

Cordialement
JCM

-----Message d'origine-----
Bonjour,
Voici Monsieur:

Dim HH As Date
Dim MN As Date
HH = "7:00"
MN = "0:30"
HH = HH + MN
MsgBox Format(HH, "hh:mm")

Sinon, 2 string, de préférence "&", mais à part ça, je ne


crois pas que l'on
puisse additionner "mathématiquement" le contenu de 2


strings...
--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
remplace AROBASE et POINT par leur vrai signe
Il l'a fait car il ne savait pas que c'était impossible,


alea jacta est!


"JCM" a écrit dans le


message de news:
060201c3dbff$47d6aaa0$
bonjour

dans une boucle je veux additionner 30 minutes à heure et
obtenir un résultat STR, voici le code :

Dim heure As String
Dim tranche As String


heure = CDate(Format("07:00", "hh mm"))
tranche = CDate(Format("00:30, "hh mm"))
heure =heure+tranche

j'obtiens "07:30:00" et je voudrais "07:00"

Ou est l'erreur
Cordialement
JCM


.



Avatar
surfeur75
V'là M'sieur pour avoir "7"

Dim HH As Date
Dim MN As Date
Dim heure
HH = "7:00"
heure = Mid(HH, 1, 2)
MN = "0:30"
HH = HH + MN
MsgBox Format(HH, "hh:mm") & Chr(10) & Format(heure, "#0")

Pour le "Flex", j'ai déjà utilisé, mais comme c'est rare, je n'ai rien en
tête, alors, ne voulant te dire de bêtises, je remets à plus entraîné sur ce
sujet...
--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
remplace AROBASE et POINT par leur vrai signe
Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!


"JCM" a écrit dans le message de news:
07eb01c3dc28$f46506d0$
Bonjour et merci pour ta réponse

Cela marche, toutefois je n'ai pas trouvé comment
convertir HH en une variable Integer pour avoir 7

Autre question

dans un MSFlexgride j'écris
MS.FixedAlignment(0) = 4
pour centrer le texte de la colonne 0 et cela ne le centre
pas, peux-tu me repondre

Cordialement
JCM

-----Message d'origine-----
Bonjour,
Voici Monsieur:

Dim HH As Date
Dim MN As Date
HH = "7:00"
MN = "0:30"
HH = HH + MN
MsgBox Format(HH, "hh:mm")

Sinon, 2 string, de préférence "&", mais à part ça, je ne


crois pas que l'on
puisse additionner "mathématiquement" le contenu de 2


strings...
--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
remplace AROBASE et POINT par leur vrai signe
Il l'a fait car il ne savait pas que c'était impossible,


alea jacta est!


"JCM" a écrit dans le


message de news:
060201c3dbff$47d6aaa0$
bonjour

dans une boucle je veux additionner 30 minutes à heure et
obtenir un résultat STR, voici le code :

Dim heure As String
Dim tranche As String


heure = CDate(Format("07:00", "hh mm"))
tranche = CDate(Format("00:30, "hh mm"))
heure =heure+tranche

j'obtiens "07:30:00" et je voudrais "07:00"

Ou est l'erreur
Cordialement
JCM


.



Avatar
Zoury
Salut! :O)


dans une boucle je veux additionner 30 minutes à heure et
obtenir un résultat STR,



voici le code :
'***
Debug.Print DateAdd("n", 30, Now)
'***

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous