Fonctions qui calculent deux différences de temps
'*******************************
'|| functiontimediff (sbegin, envoyer)
'|| Cette fonction calcule la différence entre deux fois et peut être utilisée directement sans la modifier.
'|| Auteur: Machinecat2001 / 10/26
'*******************************
'*******************************
«Remarque: d'abord, vous devez déterminer la taille entre SBEGIN et envoyer entré par l'utilisateur
'Le décalage horaire entre les deux peut être obtenu via la fonction Datadiff, sans conversion de temps compliquée
'*******************************
Functiontimediff (sbegin, envoy)
Dimihourb, iminuteb, isecondb, iminisecondb
Dimihoure, iminutee, iSeconde, iminiconde
Dimdtimeb, dtimee, dtimediff
Dimihour, iminute, isecond, iminisecond
ihourb = clng (gauche (sbegin, 2))
iminuteb = clng (mid (sbegin, 4,2))
iSecondb = clng (mid (sbegin, 7,2))
iminisecondb = clng (mid (sbegin, 10,4))
ihoure = clng (à gauche (envoyer, 2))
imiutee = clng (mid (envoyer, 4,2))
iSeconde = Clng (mid (envoyer, 7,2))
iminiconde = Clng (mid (envoyer, 10,4))
dtimeb = ihourb * 3600 + iminuteb * 60 + iSecondb + iminisecondb / 1000
dtimee = ihoure * 3600 + iminutee * 60 + iSeconde + iminiseconde / 1000
dtimediff = dtimee-dtimeb
ihour = int (dtimediff / 3600)
dtimediff = dtimediff-ihour * 3600
iminute = int (dtimediff / 60)
dtimediff = dtimediff-iminute * 60
iSecond = int (dtimediff)
dtimediff = dtimediff-int (dtimediff)
iminicond = dtimediff
TiMediff = ihour & "Hours" & iminute & "Minutes" & iSecond & Formatnumber (iminisecond, 3) & "secondes"
Finition de fin