Découpler entre deux time !!! [Résolu]
Signaler
cs_cybercop
cs_Jack
- Messages postés
- 48
- Date d'inscription
- mardi 11 juillet 2006
- Statut
- Membre
- Dernière intervention
- 5 octobre 2011
cs_Jack
- Messages postés
- 14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
A voir également:
- Découpler entre deux time !!!
- Difference entre 2 time très urgent pour aujourd'hui ✓ - Forum - Visual Basic 6
- CREER DEUX TIMER ???? ✓ - Forum - C / C++ / C++.NET
- Chti - jeu v.2 (nouveau timer) - Codes sources - Visual Basic / VB.NET (Jeux)
- Visual Basic / VB.NET : Midi timer 2 ( metronome) - CodeS SourceS - Guide
- Delphi 2009 Firebird 2.1 problème type de données TIME ✓ - Forum - Delphi / Pascal
5 réponses
cs_Jack
- Messages postés
- 14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
Salut
En supposant que le texte de tes ComboBox soient reconnus comme des formats d'heure valides, tu peux faire comme ça :
Dim mHeureDébut As Time
Dim mHeureInter As Time
Dim mHeureFin As Time
Dim bTerminé As Boolean
mHeureDébut = maListe1.Text
mHeureFin = maListe2.Text
Do While Not bTerminé
mHeureInter = DateAdd("h", 1, mHeureDébut)
Debug.Print mHeureDébut, mHeureInter
If mHeureInter > mHeureFin Then bTerminé = True
mHeureDébut = mHeureInter
Loop
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
En supposant que le texte de tes ComboBox soient reconnus comme des formats d'heure valides, tu peux faire comme ça :
Dim mHeureDébut As Time
Dim mHeureInter As Time
Dim mHeureFin As Time
Dim bTerminé As Boolean
mHeureDébut = maListe1.Text
mHeureFin = maListe2.Text
Do While Not bTerminé
mHeureInter = DateAdd("h", 1, mHeureDébut)
Debug.Print mHeureDébut, mHeureInter
If mHeureInter > mHeureFin Then bTerminé = True
mHeureDébut = mHeureInter
Loop
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
cs_Jack
- Messages postés
- 14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
Oups, en .NET, pas fait gaffe.
Je pense que ça marchera quand même, avec quelques petites corrections
Je pense que ça marchera quand même, avec quelques petites corrections
cs_Jack
- Messages postés
- 14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
Correction
Ce n'est pas As Time, mais As DateTime
Ce n'est pas As Time, mais As DateTime
cs_cybercop
- Messages postés
- 48
- Date d'inscription
- mardi 11 juillet 2006
- Statut
- Membre
- Dernière intervention
- 5 octobre 2011
merci mes amis , mais j'ai un petit prb lorsque choisi 13:00 jusqu'a 18h00 il m'affiche résultat comme :
01:00 à 02:00
02:00 à 03:00
......
05h00 à 06h00
alors je veux résultat /24h comme ça :
13h00 à 14h00
14h00 à 15h00
.............
17h00 à 18h00
merci.
01:00 à 02:00
02:00 à 03:00
......
05h00 à 06h00
alors je veux résultat /24h comme ça :
13h00 à 14h00
14h00 à 15h00
.............
17h00 à 18h00
merci.
cs_Jack
- Messages postés
- 14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
Re
Tu as tous les éléments.
Si le format ne te convient pas, regarde dans l'aide des fonctions Format et autre.
Fait aussi attention à ce que tes données (dans ta Combo) soient des format "Time" acceptés : Voir l'aide.
Tu mélanges le format "13:00" avec "14h00" alègrement : Il aura donc de fortes chances que ça bugue.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Tu as tous les éléments.
Si le format ne te convient pas, regarde dans l'aide des fonctions Format et autre.
Fait aussi attention à ce que tes données (dans ta Combo) soient des format "Time" acceptés : Voir l'aide.
Tu mélanges le format "13:00" avec "14h00" alègrement : Il aura donc de fortes chances que ça bugue.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)