Savoir depuis combien de temps l’ordinateur fonctionne

rem ============================================================================
rem      Savoir depuis combien de temps l’ordinateur fonctionne
rem ============================================================================
rem Panoramic via Windows fournit une fonction qui renvoie la disponibilité du
rem système en millisecondes : number_ticks.
rem Étant donné que number_ticks renvoie un entier de 32 bits, il calcule qu’il
rem y a un débordement après environ 49,7 jours, la durée de disponibilité est
rem donc réinitialisée à 0.
rem ============================================================================

dim seconde%,minute%,heure%,jour%
dim days%,hours%,minutes%,seconds%,temp%,uptime

seconde% = 1000               : ' millisecondes
minute%  = seconde% * 60      : ' millisecondes
heure%   = minute% * 60       : ' millisecondes
jour%    = heure% * 24        : ' millisecondes

uptime   = number_ticks       : ' millisecondes
days%    = uptime / jour%     : ' Nombre de jours
temp%    = mod(uptime,jour%)
hours%   = temp% / heure%     : ' Nombre d'heures
temp%    = mod(temp%,heure%)
minutes% = temp% / minute%    : ' Nombre de minutes
temp%    = mod(temp%,minute%)
seconds% = temp% / seconde%   : ' Nombre de secondes

memo 10 : top 10,50 : left 10,100 : width 10,250 : height 10,170 : font_bold 10
item_add 10, "Votre ordinateur est disponible depuis :" : item_add 10,""
item_add 10, str$(days%)    + " jours"
item_add 10, str$(hours%)   + " heures"
item_add 10, str$(minutes%) + " minutes"
item_add 10, str$(seconds%) + " secondes"  
item_add 10,""
item_add 10,"Ces infos seront réinitialisées à zéro"
item_add 10,"environ tout les 49,7 jours" : item_add 10,""
item_add 10,"BYE !"
end
rem ============================================================================

Votre ordinateur est disponible depuis :
01 siècle
23 années
11 mois
02 semaines
12 jours
03 heures
11 minutes
52 secondes