Section courante

A propos

Section administrative du site

GETFTIME

Demande le temps d'un fichier
Turbo Pascal 4+ DOS, WinDos

Syntaxe

Procedure GetFTime(fich:File; Var DateHeure:LongInt);

Paramètres

Nom Description
fich Ce paramètre permet d'indiquer l'identificateur de fichier
DateHeure Ce paramètre retourne la date et l'heure encoder en format DOS.

Description

Cette procédure permet de connaître la date et l'heure de la dernière modification d'un fichier.

Remarques

Exemple

L'exemple suivant permet d'afficher l'heure de création, de modification d'un fichier «TEST.TXT» :

  1. Program GetfTim1;
  2.  
  3. Uses Dos;
  4.  
  5. Var
  6.  F:Text;
  7.  H,M,S,Hund:Word;
  8.  FTime:LongInt;
  9.  DT:DateTime;
  10.  
  11. Function PadZero(W:Word):String;
  12. Var
  13.  S:String;
  14. Begin
  15.  Str(W:0,S);
  16.  if Length(s)=1 Then S:='0'+S;
  17.  PadZero:=S;
  18. End;
  19.  
  20. BEGIN
  21.  Assign(F,'TEST.TXT');
  22.  GetTime(H,M,S,Hund);
  23.  Rewrite(F);
  24.  GetFTime(F,FTime);
  25.  Writeln('Le fichier a été crée le ',
  26.           PadZero(H),':',PadZero(M),':',PadZero(S));
  27.  UnpackTime(FTime,DT);
  28.  With dt do Begin
  29.   Writeln('L''horodatage du fichier est ',
  30.           PadZero(Hour),':',PadZero(Min),':',PadZero(Sec));
  31.   Hour:=0;
  32.   Min:=1;
  33.   Sec:=0;
  34.   PackTime(DT,FTime);
  35.   Writeln('Ajustement de l''horodatage à une minute après minuit');
  36.   Reset(F);
  37.   SetFTime(F,FTime);
  38.  End;
  39.  Close(F);
  40. END.

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 209.
Le grand livre du Turbo & Borland Pascal 7.0, Edition Micro Application, Reiner Scholles, 1993, ISBN: 2-86899-873-9, page 1241.

Dernière mise à jour : Dimanche, le 25 janvier 2015