AutoIt V3 Francophone
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Le Deal du moment :
Apple AirPods Pro à 221 € (livraison ...
Voir le deal
221 €

Différence de temps en 2 heures

Aller en bas

Différence de temps en 2 heures Empty Différence de temps en 2 heures

Message  Garreth le Dim 9 Déc 2007 - 16:39

;****************************************************************************************
; Auteur: Garreth
;
; Fonction: DifferenceHeure()
; Param: $heure1,$min1,$sec1,$heure2,$min2,$sec2
; But: Donner le temps passé entre deux heures[heure:minute:secondes]
;
; Remarque: Utilisation de split pour récupérer les valeurs
; $DiffHeure= DifferenceHeure($heure1,$min1,$sec1,$heure2,$min2,$sec2)
; $Diff=StringSplit($DiffHeure,":")
; $Diff[1]=heure
; $Diff[2]=minute
; $Diff[3]=seconde
;*****************************************************************************************

Func DifferenceHeure($heure1,$min1,$sec1,$heure2,$min2,$sec2)

;Déclaration des variables nécessaire
Dim $date[3],$date2[3], $Diff[3], $SecDiff, $Sec1, $Sec2

;Temps 1
$Date[0] = $heure1 ;heure
$Date[1] = $min1 ;minute
$Date[2] = $sec1 ;seconde

;Temps 2
$Date2[0] = $heure2 ;heure
$Date2[1] = $min2 ;minute
$Date2[2] = $sec2 ;seconde

;Temps 1 et 2 en seconde
$Sec1=($Date[0]*60 +$Date[1])*60 +$Date[2]
$Sec2=($Date2[0]*60 +$Date2[1])*60 +$Date2[2]


;La différence des 2 en seconde
$SecDiff = $Sec1 - $Sec2

;Différence d'heure
$Diff[0] = $SecDiff/60/60

;Différence de minute
If ( $Diff[0]>Round( $Diff[0],0))Then
$Diff[1]=( $Diff[0]-Round( $Diff[0],0))*60
Else
$Diff[1]=( $Diff[0]-(Round( $Diff[0],0)-1))*60
EndIf

;Différence de seconde
If( $Diff[1]>Round( $Diff[1],0))Then
$Diff[2]=( $Diff[1]-Round( $Diff[1],0))*60
Else
$Diff[2]=( $Diff[1]-(Round( $Diff[1],0)-1))*60
EndIf

;arrondi inférieur
For $i = 0 To 2
If ( $Diff[$i]>Round( $Diff[$i],0))Then
$Diff[$i]=Round( $Diff[$i],0)
Else
$Diff[$i]=Round( $Diff[$i],0)-1
EndIf
Next

;mise en forme des valeurs à retourner
$Return= $Diff[0]&":"& $Diff[1]&":"& $Diff[2]

;Retour des valeurs
Return $Return
EndFunc

Garreth
Admin

Messages : 3
Date d'inscription : 09/12/2007
Age : 31

https://autoit-fr.kanak.fr

Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
Ne ratez plus aucun deal !
Abonnez-vous pour recevoir par notification une sélection des meilleurs deals chaque jour.
IgnorerAutoriser