[R] Addition de deux heures.

[pierrotm777]

Bon,

Avec ce nouveau sujet, j'espère être moins ridicule .

J'ai besoin d'additionner deux heures différentes . Aprés recherche dans l'aide je n'ai trouvé que cette solution qui semble fonctionner
mais pas trés class .

► Afficher le texte

Code : Tout sélectionner

#include <Date.au3>
Global $Sec, $Min, $Hour, $T1, $T2, $NewTime

_TimeAddTime(_DateTimeFormat( _NowCalc(),5),"01:11:02")
MsgBox(262144,'' , 'New Time:' &  StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs))

Func _TimeAddTime($Time1,$Time2)
    $T1 = StringSplit($Time1,":")
    $StartTicks = _TimeToTicks($T1[1],$T1[2],$T1[3])
;    MsgBox(262144,'' , 'Start Time:' &  $StartTicks)
    $T2 = StringSplit($Time2,":")
    $EndTicks = _TimeToTicks($T2[1],$T2[2],$T2[3])
;    MsgBox(262144,'' , 'End Time:' &  $EndTicks)
    ; addition des deux heures
    _TicksToTime($StartTicks+$EndTicks,$Hour,$Min,$Sec)
    If $Hour >= 24 Then $Hour = $Hour - 24
;    MsgBox(262144,'' , 'New Time:' &  $Hour & ":" & $Min & ":" & $Sec)
    Return $Hour & ":" & $Min & ":" & $Sec
EndFunc

Dans certains cas (minutes<10), les minutes sont sur un seul digit

Existe t'il une solution meilleur.

Merci par avance

[SrBelial]

moi je serai toi je convertirai tout en secondes ou en millisecondes et hop, une addition et le tour est joué !

après, reconversion proprement avec ce code :

Code : Tout sélectionner

; Valeur d'exemple : un nombre de millisecondes calculé facilement ... pour donner 1 heure 45 et 15 secondes ^__^
Dim $ms = 1000 * 60 * 60 + 1000 * 60 * 45 + 135 * 1000

Dim $h = floor($ms / (1000 * 60 * 60))
$ms = $ms - $h * 1000 * 60 * 60

Dim $m = floor($ms / (1000 * 60))
$ms = $ms - $m * 1000 * 60

Dim $s = floor($ms / 1000)
$ms = $ms - $s * 1000

MsgBox(0, "", $h & ":" & $m & ":" & $s & " _ " & $ms)

[Sh4dows]

De plus la conversion en milliseconde peut être très utile avec les timers

[pierrotm777]

Merci de votre conseille, je vais essayer cette solution !

[sksbir]

bonjour

perso, j'utiliserais les fonctions _datediff et _dateadd

et sinon, ya pleins d'autres fonctions dans l'aide d'autoit "User Defined Function --> Date management"

[pierrotm777]

J'ai modifié le post 1 avec un traitement de format de l'heure sur 2 digits

[pierrotm777]

bonjour

perso, j'utiliserais les fonctions _datediff et _dateadd

et sinon, ya pleins d'autres fonctions dans l'aide d'autoit "User Defined Function --> Date management"

Un exemple peut être à me conseiller ?

[SrBelial]

en l'absence de réponse et si votre problème est résolu, merci de le signaler par [R].

[pierrotm777]

ET bien j'aurais bien aimé un exemple avec _datediff et _dateadd !

[SrBelial]

En espérant que ça correspond ...
à noter : la doc contient tout ce qu'il faut pour exploiter et adapter ceci à vos besoins !
^____^ rien qu'avec le nom des fonctions il vous aurait été facile d'approfondir le sujet de votre côte ^____^

====>

Code : Tout sélectionner

#include <Date.au3>

; Nombre d'heures écoulées dans l'année :
Global $debutdelannee = @YEAR & "/01/01 00:00:00"
Global $maintenant = _NowCalc()

Global $NbHeures = _DateDiff( 'h',$debutdelannee, $maintenant)

MsgBox( 64, "Heures Calculator of The Death !!", "Nombre d'heures écoulées : " & $NbHeures )

; Ajout d'un nombre d'heures données à une heure :
Global $heurecourante = _NowCalc()
Global $nombreSecondesAAjouter = 9000 ; équivalent à 2 heures et demie

Global $res = _DateAdd('s', $nombreSecondesAAjouter, $heurecourante)

MsgBox( 64, "Heures Calculator of The Death !!", "Heure actuelle : " & StringRight($heurecourante, 8) & @CRLF & "Nouvelle heure : " & StringRight($res, 8))

[pierrotm777]

Merci de votre aide.

Cela devrait me convenir