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

Messages postés
1293
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

Afficher la suite 
//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
4233
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
3 juillet 2019
32 -
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
1293
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
9 -
Indentation fantaisiste...
Absence de commentaire sur les paramètres de fonction, leurs résultats, leur contenu...

Cantador, t'en penses quoi ? :)