Timer

Question

Bonjour, 
comment fait ton pour afficher une heure avec une minute de plus :

je m'explique 
      statusbar.panels[0].text:='12:03:36'; //heure actuelle en utilisant timetostr(now)

     statusbar.panels[1].text:='Prochaine mise à jour à : 12:04:36';


Cordialement

copain68 · Answer

var
dTime: TDateTime;
begin
   dTime := now;
   dTime := dTime + StrToInt(Edit1.Text) / 1440;
   statusbar1.Panels[1].Text:='Prochaine actualisation automatique: '+TimeToStr(dTime);
end;

tous simplement

cs_AccessToYou · Answer

1. Ajouter à la clause uses l'unité "DateUtils"
2. Appeler la fonction IncMinute.

//. unit DateUtilsfunction IncMinute(const AValue: TDateTime;  const ANumberOfMinutes: Int64 = 1): TDateTime;//. Exemple:...var dTime: Double; //. or TDateTimebegin  ...  dTime:= Now; //. or any value  dTime:= IncMinute(5 {or any Int64 value});  //. display your time  statusbar1.Panels[1].Text:='Prochaine actualisation automatique: '+TimeToStr(dTime);(* statusbar1.Panels[1].Text:= Format('%s: %s', ['Prochaine actualisation automatique', FormatDateTime('HH:MM:SS', dTime)]);  ...end;

Timer

2 réponses

Votre réponse

Discussions similaires