L'UNITÉ U_DATE DE LA BIBLIOTHÈQUE DES FONCTIONS EN PASCAL COMPATIBLE AVEC TOUS L

Signaler
Messages postés
1284
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
-
 denisbertin -
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/55120-l-unite-u-date-de-la-bibliotheque-des-fonctions-en-pascal-compatible-avec-tous-les-compilateur-utilisant-ce-langages-et-derives

//La nouvelle fonction de calcul de la différence entre deux heures renvoie les différences de temp entre deux heures:

function this_hour(Hour,Minute,Second,MilliSecond:word; var delta_dif_hour,delta_dif_minute,delta_dif_seconde:integer):boolean;
var une_heure:t_heure;
temps,time,difference:integer;
begin
u_date.get_heure(une_heure);
delta_dif_hour:=une_heure.Heure-Hour;
if delta_dif_hour=0 then
begin
this_hour:=true;
delta_dif_minute:=une_heure.Minute-Minute;
temps:=Hour*24*3600+Minute*60+Second;
time:=une_heure.Heure*24*3600+une_heure.Minute*60+une_heure.seconde;
difference:=time-temps;
delta_dif_hour:=(difference div 24*3600) mod 24;
delta_dif_minute:=(difference div 60) mod 60;
delta_dif_seconde:=difference mod 60;
end
else
this_hour:=false;
end;
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
encore un code inutilisable en l'état !!!!

il subira le même sort que les autres si
rien n'est fait pour régler le problème.
Messages postés
1284
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
13
Indentation fantaisiste...
Absence de commentaire sur les paramètres de fonction, leurs résultats, leur contenu...

Cantador, t'en penses quoi ? :)