lolpop
Messages postés211Date d'inscriptionmercredi 4 août 2004StatutMembreDernière intervention18 octobre 2010
-
3 juil. 2006 à 00:59
lolpop
Messages postés211Date d'inscriptionmercredi 4 août 2004StatutMembreDernière intervention18 octobre 2010
-
4 juil. 2006 à 09:29
Bonjour
je souhaiterai ajouter deux heures mais je n'y arrive pas, est t'il possible d'addionner 2 heures ou bien faut t-il passer par quelque chose de spécial?
voila ce que j'ai fait:
toto1 = Time
toto2 = "12:02:12"
toto2 = Format(toto2, "hh:mm:ss")
total = toto1 + toto2
et lorsque je teste j'ai une erreur d'imcompatibilié.
quelqu'un pourrais m'aide?
merci beauocup
lolpop
Messages postés211Date d'inscriptionmercredi 4 août 2004StatutMembreDernière intervention18 octobre 2010 3 juil. 2006 à 10:19
merci mortalino je vais voir ce que je peux faire avec.
pour répondre a PCPT c'est effectivement passé au lentemain si la somme est supérieur a 24H, je vais essay de faire un petit code je reviendrai si ca ne marche pas :)
merci en tout ca
Vous n’avez pas trouvé la réponse que vous recherchez ?
lolpop
Messages postés211Date d'inscriptionmercredi 4 août 2004StatutMembreDernière intervention18 octobre 2010 3 juil. 2006 à 11:53
voila un petit code que je viens de fait :
<hr />
Private Sub Command1_Click()If Text1.Text "" Then Text1.Text "00"If Text2.Text "" Then Text2.Text "00"If Text3.Text "" Then Text3.Text "00"
Dim toto1 As Date, toto2 As Date, total As Date
toto1 = Time
toto2 = Text1.Text & ":" & Text2.Text & ":" & Text3.Text
total = toto1 + toto2
MsgBox total
If total > "23:59:59" Then
total = "24" - total
MsgBox total
End If
End Sub
<hr />
j'ai un soucis car lorsque l'heure que l'on rajoute dépace 24H ca m'inscrit un truc du style 31/12/1899 07:53:03.
d'ou peu venir ce problème?
merci d'avance
lolpop
Messages postés211Date d'inscriptionmercredi 4 août 2004StatutMembreDernière intervention18 octobre 2010 3 juil. 2006 à 19:12
je vous remercie beaucoup pour vos réponse.
vos message m'on fait réfléchir, je prend maintenant la date du jour avec l'heure:
<hr />
Dim toto1 As Date, toto2 As Date, total As Date
Private Sub Command1_Click()If Text1.Text "" Then Text1.Text "00"If Text2.Text "" Then Text2.Text "00"If Text3.Text "" Then Text3.Text "00"
MsgBox "le pc s'éteindra a " & total
Timer1.Enabled = True
End Sub
<hr />Mais j'ai une erreur dés que je veux ajouter 24H ou plus j'ai une erreur au niveau de toto2=
cela viens de ma déclaration de la variable toto2 As Date, mais je ne sais pas par quoi modifier pour qu'il n'y ai plus d'erreur.
vou savez une idée
lolpop
Messages postés211Date d'inscriptionmercredi 4 août 2004StatutMembreDernière intervention18 octobre 2010 3 juil. 2006 à 22:56
ca marche super comme ca, serait tu m'expliquer d'ou venez mon erreur, juste pour essayer de les comprendre :)
sinon TimeSerial(heure, minute et seconde) créé une valeur variant de type Date?
si c'est le cas pourquoi ma technique ne marché pas?
je dois etre chiant quand meme :)
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 4 juil. 2006 à 07:12
Ca fonctionne, si, dans ce cas.... mais là, VB doit transformer ta
chaine en date, ce qui es couteux, et qui peux ne pas fonctionner,
j'imagine ,selon les options regionales.
TimeSerial permet de travailler avec des valeurs numériques, ce qui
induit un traitement plus rapide, et qui enlève toute éventuelle
incompatibilité avec les paramètres régionnaux.
comme te l'as dit PCPT :
"une simple concaténation de string n'est pas (forcément) une date valide."