ADDITION & SOUSTRACTION D'HEURE SUR UNE BASE DE 24H
lefaix
-
1 mars 2001 à 23:46
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 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.
Private Sub ajustons(quoi, quoiavant, combien)
qui = quoi Mod combien
quoiavant = quoiavant + (quoi \ combien)
quoi = qui
End Sub
stefan69
Messages postés3Date d'inscriptiondimanche 17 avril 2005StatutMembreDerniè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és55Date d'inscriptionmercredi 31 juillet 2002StatutMembreDernière intervention19 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és39Date d'inscriptionlundi 25 février 2002StatutMembreDernière intervention16 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és39Date d'inscriptionlundi 25 février 2002StatutMembreDernière intervention16 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 ?
25 mars 2007 à 14:04
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
31 mai 2006 à 15:15
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'
2 oct. 2002 à 14:44
ça marche du tonnerre et c'est bien expliqué
18 avril 2002 à 12:25
18 avril 2002 à 09:41
Tu sais pas comment je pourrais faire cette fonction ?
1 mars 2001 à 23:46
Acceptez-vous de m'aider?.