Passage d'une textbox en heure et addition

Fermé
Cedricle2905 Messages postés 272 Date d'inscription samedi 21 avril 2007 Statut Membre Dernière intervention 28 août 2015 - 10 juin 2014 à 18:59
Cedricle2905 Messages postés 272 Date d'inscription samedi 21 avril 2007 Statut Membre Dernière intervention 28 août 2015 - 11 juin 2014 à 18:26
Bonjour,

je n'arrive pas à additionner ma Textbox1 avec une textbox2 l'afficher dans label.
Explications :

Textbox1 doit afficher l'heure actuelle (exemple 18:00)
Dans la textbox2, j'ai un nombre en minute ( exemple 100)
et j'aimerai avoir dans le label 1 le résultat de la somme ( soit 19:40)

Je travail sous Microsoft Visual Studio

Merci de votre aide

2 réponses

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
11 juin 2014 à 17:10
Il faut que tu fasse une fonction pour convertir le text "18:00" en un nombre entier (integer) de minutes (1080 minutes)

Puis tu ajoutes les 100 minutes (1180 minutes)

Puis tu reconverti le nombre en texte. un truc plus ou moins comme ça : Minutes / 60 pour le nombre d'heure et la formule du modulo pour avoir les minutes.

Bonne journée
0
Cedricle2905 Messages postés 272 Date d'inscription samedi 21 avril 2007 Statut Membre Dernière intervention 28 août 2015 9
11 juin 2014 à 18:26
Bonjour et merci pour la réponse

En cherchant toute la matinée j'ai trouvé un moyen sachant que j'ai une windows form "temps" avec le temps à additionner :

.........
today = TextBox1.Text
Duration = New System.TimeSpan(0, 0, Temps.TextBox1.Text, 0)
answer = today.Add(Duration)
Label1.Text = Format(answer, "H:mm")
today = Label1.Text

Duration = New System.TimeSpan(0, 0, Temps.TextBox2.Text, 0)
answer = today.Add(Duration)
Label2.Text = Format(answer, "H:mm")
today = Label2.Text

Duration = New System.TimeSpan(0, 0, Temps.TextBox3.Text, 0)
answer = today.Add(Duration)
Label3.Text = Format(answer, "H:mm")
..........


Puis-je le faire sous forme de boucle ?
Exemple mais cela ne fonctionne pas :

for n = 1 to 3
temps1 = "Temps.TextBox" & n & ".Text"
labelBis = " Label" & n & ".Text"

Duration = New System.TimeSpan(0, 0, temps1, 0)
answer = today.Add(Duration)
labelBis = Format(answer, "H:mm")
next

cordialement
0