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

Messages postés
1284
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
- - Dernière réponse :  denisbertin - 3 mai 2013 à 20:05
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;
Cirec
Messages postés
3807
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
9 décembre 2019
35 -
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.
sp40
Messages postés
1284
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
11 -
Indentation fantaisiste...
Absence de commentaire sur les paramètres de fonction, leurs résultats, leur contenu...

Cantador, t'en penses quoi ? :)