Ajouter une seconde, minute ou heure à un TDateTime


procedure TForm1.Button1Click(Sender: TObject);
var
dTime: TDateTime;
begin
// Ajouter une seconde à dTime
//1sec = 1/(24h x 60 min x 60 sec)
dTime := now;
dTime := dTime + 1.0 / 86400;
ShowMessage('dans une seconde :' + DateTimeToStr(dTime));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
dTime: TDateTime;
begin
// Ajouter une minute à dTime
//1 min = 1/(24h x 60 min)
dTime := now;
dTime := dTime + 1.0 / 1440;
ShowMessage('dans une minute :' + DateTimeToStr(dTime));
end;

procedure TForm1.Button3Click(Sender: TObject);
var
dTime: TDateTime;
begin
// Ajouter une heure à dTime
//1 heure = 1/24h
dTime := now;
dTime := dTime + 1.0 / 24;
ShowMessage('dans une heure :' + DateTimeToStr(dTime));
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour11/02/2005
VisualisationVu 2102 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Autre categorie
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur