Sujet Précédent Sujet Suivant

ADDITION & SOUSTRACTION D'HEURE SUR UNE BASE DE 24H

lefaix - 1 mars 2001 à 23:46
jmfmarques Messages postés 7666 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 - 25 mars 2007 à 14:04

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/337-addition-soustraction-d-heure-sur-une-base-de-24h

jmfmarques Messages postés 7666 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 27
25 mars 2007 à 14:04

Mon commentaire ?

Pourquoi (sans jeu de mots) chercher midi à quatorze heure ?

Méthode scolaire et efficace, donc :

Private Sub Command1_Click()
time1 = "01:40:20"
time2 = "10:25:41"
heures = Val(Hour(time1)) + Val(Hour(time2))
minutes = Val(Minute(time1)) + Val(Minute(time2))
secondes = Val(Second(time1)) + Val(Second(time2))
ajustons secondes, minutes, 60
DoEvents
ajustons minutes, heures, 60
MsgBox heures & " heures " & minutes & " minutes " & secondes & " secondes "
End Sub

Private Sub ajustons(quoi, quoiavant, combien)
qui = quoi Mod combien
quoiavant = quoiavant + (quoi \ combien)
quoi = qui
End Sub

et on pourrait continuer avec ce même principe avec des 10èmes, des centième, des milliers, etc.... de secondes, bien évidemment

Private Sub Command1_Click()
time1 = "01:40:20"
time2 = "10:25:41"
heures = Hour(time1) + Hour(time2)
minutes = Minute(time1) + Minute(time2)
secondes = Second(time1) + Second(time2)
ajustons secondes, minutes, 60
DoEvents
ajustons minutes, heures, 60
MsgBox heures & " heures " & minutes & " minutes " & secondes & " secondes "
End Sub

Private Sub ajustons(quoi, quoiavant, combien)
qui = quoi Mod combien
quoiavant = quoiavant + (quoi \ combien)
quoi = qui
End Sub

stefan69 Messages postés 3 Date d'inscription dimanche 17 avril 2005 Statut Membre Dernière intervention 1 juin 2006
31 mai 2006 à 15:15

Trop TOP, la classe cette fonction.
J'explose de joie lorsqu'il me sort le bon chiffre.
J'ai tellement galèré dessus, bou, j'y pense plus :-)
Comme ils le disent si bien dans une pub 'heu reux'

GarnetDiAlexandros Messages postés 55 Date d'inscription mercredi 31 juillet 2002 Statut Membre Dernière intervention 19 novembre 2004
2 oct. 2002 à 14:44

Très très bon code
ça marche du tonnerre et c'est bien expliqué

fbrt Messages postés 39 Date d'inscription lundi 25 février 2002 Statut Membre Dernière intervention 16 avril 2005
18 avril 2002 à 12:25

Désolé pour ma question. Je viens de trouver une méthode : convertir en seconde, faire la division, remettre en heure. En plus, les conversions d'heure/seconde sont des sources de toi. Merci quand meme, tes sources vont m'aider.

fbrt Messages postés 39 Date d'inscription lundi 25 février 2002 Statut Membre Dernière intervention 16 avril 2005
18 avril 2002 à 09:41

Salut, ton code m'est bien utile, je l'ai utilisé pour un programme. Mais je cherche aussi une fonction pour diviser une heure par un nombre entier (en arrondissant si ca tombe pas juste), par ex : 05:02:00 /2 = 02:31:00.
Tu sais pas comment je pourrais faire cette fonction ?

lefaix
1 mars 2001 à 23:46

J'éprouve des difficultés avec votre code.
Acceptez-vous de m'aider?.

Discussions similaires

soustraire deux heures

Addition et soustraction d'heures

addition d'heure

Décompte (compte a rebours) qui affiche le nombre de mois, de jour, d'heure, de

script plage horaire

Votre réponse

Discussions similaires