Chrono

script chrono

property time1 : null

property time2 : null

property theCount : null

on start() -- start chrono

set theCount to 0

set time1 to (the current date)

end start

on break() -- stop chrono

set time2 to (the current date)

activate

if theCount is not null then

display dialog (theCount as string) & plural(" item", theCount) & " proceded in " & formatSeconds(round (time2 - time1)) & " ." buttons {"OK"} default button 1 with icon 1 giving up after 10

else

display dialog "Process completed in " & formatSeconds(round (time2 - time1)) & " ." buttons {"OK"} default button 1 with icon 1 giving up after 10

end if

end break

on countLoop() -- increase counter

set theCount to theCount + 1

end countLoop

on formatSeconds(theSeconds)

set {h, m, s} to {theSeconds div 3600, (theSeconds mod 3600) div 60, (theSeconds mod 3600) mod 60}

return h & ":" & twoDigit(m) & ":" & twoDigit(s) as string

end formatSeconds

on twoDigit(theNumber) -- add zero before one digit number

if theNumber < 10 then set theNumber to "0" & theNumber

return theNumber as string

end twoDigit

on plural(theString, num) -- add "s" after a string if num> 1

if num > 1 then set theString to theString & "s"

return theString

end plural

end script

>>Ouvrir le script dans l'éditeur

Quantifie le gain de temps d'un operation automatisée vs "à la main" au prix d'un léger ralentissement si appel à la routine countloop()

tell chrono to start() -- Initialisation chronomètre : A placer au debut du script utilisateur
tell chrono to countLoop() -- incrementation  compteur : A placer (facultatif) dans le script utilisateur, par ex. dans une routine qui renomme des fichiers.
tell chrono to break() -- Arrêt du chronomètre : A placer à la fin du script utilisateur.