L'UNITÉ U_DATE DE LA BIBLIOTHÈQUE DES FONCTIONS EN PASCAL COMPATIBLE AVEC TOUS L
sp40
Messages postés
1276
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
-
2 mai 2013 à 11:11
denisbertin - 3 mai 2013 à 20:05
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
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
3 mai 2013 à 20:05
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;
2 mai 2013 à 18:57
il subira le même sort que les autres si
rien n'est fait pour régler le problème.
2 mai 2013 à 11:11
Absence de commentaire sur les paramètres de fonction, leurs résultats, leur contenu...
Cantador, t'en penses quoi ? :)