TDateTime-Wert um x Minuten erhöhen oder erniedrigen

Arakis · Beiträge: 344

Hi,
weiß jemand, wie man einen TDateTime-Wert um x Minuten erhöhen oder erniedrigen kann? Ich hab es mal mit EncodeDateTime/DecodeDateTime versucht, aber wenn der Minutenblock unter null gerät, gibt es eine Felermeldung.
Bin für jeden Rat dankbar.

Bis dann
user defined image

_________________
Mit dem Computer löst man Probleme, die man ohne ihn nicht hätte.
Entwickler von SpaceTrek: The New Empire - Siehe Hompage!

Klabautermann · Verfasst: Fr 04.10.02 19:06

Hallo,

warum denkst du so Kompliziert? Versuche es mal so:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

  COSNT
     Stunde = 1/24;
     Minute = (1/24) / 60;
     Sekunde = ((1/24)/ 60)/60;
[...]
 DateTimeWert := DateTimeWert + (5 * Minute);
 DateTimeWert2 := DateTimeWert2 - (14 * Minute) - (30 * Sekunde);

Gruß
Klabautermann

Arakis · Beiträge: 344

Hi Klabautermann,
dass war genau dass, wonach ich suchte. Vielen Dank.

Manchmal denkt man wirklich zu kompiliziert :wink:

Bis dann

_________________
Mit dem Computer löst man Probleme, die man ohne ihn nicht hätte.
Entwickler von SpaceTrek: The New Empire - Siehe Hompage!

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Oder so:

markieren

Quelltext

1:
2:

DateTimeWert:=IncMinute(DateTimeWert,5);
DateTimeWert2:=IncSecond(IncMinute(DateTimeWert2,-14),-30);

MfG,
Peter

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Klabautermann · Verfasst: Sa 05.10.02 00:41

Peter Lustig hat folgendes geschrieben:

Oder so:

Aha, die kannte ich auch noch nicht.

Danke für die Alternative
Klabautermann

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme