Zeiten addieren

[marcelwhip]

hi!

ich würde gerne wissen, wie mnan zu einer Uhrzeit etwas addieren kann!
ich soll ein parkautomaten schreiben, und wenn man 50 cent einwirft, soll in einem editfeld die aktuellezeit + 30 minuten stehen!

danke!

[Kedariodakon]

IncDay
IncMonth
IncYear

...

Bye

[marabu]

Besser IncMinute() aus der Unit DateUtils (D7). Und wenn du diese Unit in deiner Version von Delphi nicht hast, dann einfach so:

Delphi-Quellcode:

const
  OneMinute = 1 / 24 / 60;
var
  dt: TDateTime;
begin
  dt := dt + OneMinute * 30; 
end;

Grüße vom marabu

[Matze]

Oder so:

Delphi-Quellcode:

var
  Zeit: TTime;
begin
  Zeit := now;
  Zeit := Zeit + StrToTime('00:30:00');

[marcelwhip]

danke an alle!
schon komisch das ich besonders auf diese strtotime nicht selber drauf gekommen bin!
THX :dp:

[Sharky]

Zitat:

Zitat von marcelwhip

... schon komisch das ich besonders auf diese strtotime nicht selber drauf gekommen bin!

Wobei ich genau diese Methode nicht verwenden würde. :-P

[Chegga]

Hi,

@ Sharky:
Warum denn, wenn ich fragen darf? :wink:
Wegen dem "Umwandeln - Hick-Hack" ( :zwinker: ) von StrToTime
bzw. TimeToStr? :gruebel:
Oder wo liegt das Problem?

MfG Marc

[Sharky]

Zitat:

Zitat von Chegga

...Warum denn, wenn ich fragen darf? :wink:

Nein, DU darfst nicht fragen :stupid:

Mich würde es beim lesen von Code iritieren wenn ich für eine Numerischeoperation (addition von Zahlen) auf einmal einen String sehen würde.

[vlees91]

du darfst ;) /musst es ja nicht lesen

[Arnulf]

naja - ich finds ok es ist besser lesbar als wenn man incmilliseconds oder sowas verwendet.
Ist doch gut zu lesen - eine digital uhr kann ja jeder lesen und man sieht auf den ersten blick was die zeile macht ... das ist wichtig denk ich.

Arnulf

[Sharky]

Zitat:

Zitat von Arnulf

...und man sieht auf den ersten blick was die zeile macht ... das ist wichtig denk ich.

Klar, das ist geschmacks sache. Ich finde es so halt einfacher:

Delphi-Quellcode:

// Aufgebaut auf dem "Code" von marabu
function AddMinutes (const aDT : TDateTime; const aMinutes : integer = 1) : TDateTime;
const
  OneMinute = 1 / 24 / 60;
begin
  result := aDT + (OneMinute * aMinutes);
end;

procedure TForm1.btn_TestClick(Sender: TObject);
var
  ZeitPlus30 : TDateTime;
begin
  ZeitPlus30 := AddMinutes(now,30);
end;

[Matze]

Zitat:

Zitat von Sharky

Klar, das ist geschmacks sache. Ich finde es so halt einfacher: [...]

Einfacher würde ich das nicht nennen. Ich würde auch eine Funktion schreiben, wenn man das öfters aufrufen muss. Kommt es nur einmal vor, bevorzuge ich meine Variante, da sie sehr kurz und, meiner Meinung nach, sehr übersichtlich ist. Sonst kann ich keine Nachteile erkennen. ;)

[marabu]

Hallo Matthias,

dein StrToTime() funktioniert nicht auf jedem Rechner - der TimeSeparator unterliegt der Kontrolle des Anwenders.

Freundliche Grüße vom marabu

[Matze]

Ah, danke Marabu, wieder was gelernt. Ich würde nun auch Sharkys Methode bevorzugen. :stupid: