Calcule heure de nuit [Résolu]

Messages postés
55
Date d'inscription
jeudi 26 avril 2007
Statut
Membre
Dernière intervention
6 avril 2015
- - Dernière réponse : alosamoelle
Messages postés
129
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
23 mai 2009
- 12 mai 2008 à 09:09
bonjour a tous

ily a quelque jour j ais posse une question sur le forum pour avoir une aide sur le calcul d heure de nuit mais qui rester sans reponce
quelqu un peut il m expliquer comment code en vb6 se mode de calcul qui suit :

exemple
je travail de 20 h 00 a 04 h 30 soit 08 h 30 au total en sachant que les heures de nuit sont de 22 h 00 a 06 h 00 les heures de nuit sont de 06 h 30

je vous remercie d avance pour votre aide et attend de vous lire pour que prog avence
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
129
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
23 mai 2009
3
Merci
Bonjour, tu peux faire un truc comme cela en l'ameliorant car si l'heure commence aprés 24h cela ne marche pas et il faut transformer les minutes en heures mais bon je ne vais pas tout te faire :)
Dim heuredebut As String
Dim heurefin As String
Dim Hdebut As Integer
Dim Mindebut As Integer
Dim Hfin As Integer
Dim Minfin As Integer

heuredebut = "20h00"
heurefin = "4h30"
Dim tempo
 tempo = Split(heuredebut, "h")
 Hdebut = tempo(0)
 Mindebut = tempo(1)
 
 tempo = Split(heurefin, "h")
 Hfin = tempo(0)
 Minfin = tempo(1)
 Dim criterefin As Integer
' calcul des heuresIf Hfin < 6 Then criterefin Hfin Else criterefin 6
recommence:

If Hdebut < 22 Then
Hdebut = Hdebut + 1
GoTo recommence
End If
Dim heuredenuit As Integer
heuredenuit = 0
calcul:If Hdebut >24 Then Hdebut 0
heuredenuit = heuredenuit + 1
Hdebut = Hdebut + 1

If Hdebut = criterefin Then GoTo fini Else GoTo calcul
fini:
' rajoute les minutes s'il y a
Dim Minnuit As IntegerIf Minfin > 30 Then Minnuit 30 + Mindebut Else Minnuit Mindebut + Minfin

MsgBox heuredenuit & "h " & Minnuit & "min"

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 130 internautes nous ont dit merci ce mois-ci

Commenter la réponse de alosamoelle