FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses 
  DateUtils; {pour les fonctions Tomorrow, Yesterday et IsToday} 
var 
  MaDate01, MaDate02, MaDate03: TDate; 
  MaDate11: TDateTime; 
begin 
  MaDate01 := Date;      {la fonction Date renvoie la date en cours} 
  MaDate02 := Tomorrow;  {la fonction Tomorrow renvoie le jour suivant de Date} 
  MaDate03 := Yesterday; {la fonction Yesterday renvoie le jour précédent de Date} 
  MaDate11 := now;       {la fonction now renvoie la date et l'heure système} 
  if IsToday(MaDate11) then 
  {IsToday renvoie un boolean qui permet de contrôler si MaDate11 est la date en cours} 
    ShowMessage('OK'); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
var 
  Temps1 : TTime; 
  Temps2, TempsP : TDateTime; 
begin 
  Temps1 := EncodeTime(12,30,25,0); 
  {initialise Temps1 avec 12h 30mn 25 sec} 
  ShowMessage(TimeToStr(Temps1)); 
  TempsP := Time; {la fonction Time renvoie l'heure actuelle} 
  ShowMessage(TimeToStr(TempsP)); 
  Temps2 := Now;  {même effet que Time} 
  ShowMessage(TimeToStr(Temps2)); 
end;

1
2
3
4
5
6
7
8
9
10
var 
  MaDate: TDate; 
  Jour, Mois, Annes: Word; 
begin 
  {Jour, Mois et Annee doit être une date valide} 
  {Pour encoder : } 
  MaDate := EncodeDate(Annee,Mois,Jour); 
  {Pour décoder : } 
  DecodeDate(MaDate, Annee, Mois, Jour); 
end;

1
2
3
4
5
6
7
8
9
10
11
var 
  MonHeure : TTime; 
  Heure, Minute, Seconde, milliSec : Word; 
begin 
  {Heure, Minute, Seconde et milliSec doivent être un temps valide} 
  {Pour encoder} 
  MonHeure := EncodeTime(Heure, Minute, Seconde, milliSec); 
  ShowMessage(TimeToStr(MonHeure)); 
  {Pour décoder} 
  DecodeTime(MonHeure,Heure, Minute, Seconde, milliSec); 
end;

1
2
3
4
5
6
7
8
9
10
11
uses 
  DateUtils; 
var 
  DateOK                           : Boolean; 
  Annee, Mois, Jour                : Word; 
  TimeOK                           : Boolean; 
  Heure, Minute, Seconde, milliSec : Word; 
begin 
  DateOK := IsValidDate(Annee, Mois, Jour); 
  TimeOK := IsValidTime(Heure, Minute, Seconde, milliSec); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
{ Fonction de mise à l'heure } 
Function MiseHeure(DateHeure:TDateTime):Boolean; 
Var Infos  :TSystemTime; 
    Zone   :TTimeZoneInformation; 
    Retour :Integer; 
Begin 
  { Recherche des information sur les décalages locaux } 
  Result:=False; 
  Retour:=GetTimeZoneInformation(Zone); 
  { DateHeure étant en heure locale => ajout des décalages pour obtenir l'heure absolue } 
  Case Retour Of 
    TIME_ZONE_ID_UNKNOWN  : DateHeure:=DateHeure+( Zone.Bias                   /(24*60)); 
    TIME_ZONE_ID_STANDARD : DateHeure:=DateHeure+((Zone.Bias+Zone.StandardBias)/(24*60)); 
    TIME_ZONE_ID_DAYLIGHT : DateHeure:=DateHeure+((Zone.Bias+Zone.DaylightBias)/(24*60)); 
  Else 
    Exit; 
  End; 
  { Ensuite, mise à l'heure du Pc } 
  { Attention sous Windows NT/2000/XP l'utilisateur doit avoir les droits } 
  { suffisants pour que ça fonctionne ! } 
  Infos.wYear         :=YearOf        (DateHeure); 
  Infos.wMonth        :=MonthOf       (DateHeure); 
  Infos.wDayOfWeek    :=DayOfWeek     (DateHeure); 
  Infos.wDay          :=DayOf         (DateHeure); 
  Infos.wHour         :=HourOf        (DateHeure); 
  Infos.wMinute       :=MinuteOf      (DateHeure); 
  Infos.wSecond       :=SecondOf      (DateHeure); 
  Infos.wMilliseconds :=MillisecondOf (DateHeure); 
  Result:=SetSystemTime(Infos); 
End;

1
2
3
4
5
var 
  DateChaine: string; 
begin 
  DateChaine := FormatDateTime('"Nous sommes le" dd/mm/yyyy", il est "hh:ss', Now); 
end;

TimeToStr(MonEntier/24/3600);