Entwickler-Ecke

Sonstiges (Delphi) - TDateTime-Wert um x Minuten erhöhen oder erniedrigen


Arakis - Fr 04.10.02 18:46
Titel: TDateTime-Wert um x Minuten erhöhen oder erniedrigen
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


Klabautermann - Fr 04.10.02 19:06

Hallo,

warum denkst du so Kompliziert? Versuche es mal so:

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 - Fr 04.10.02 19:13

Hi Klabautermann,
dass war genau dass, wonach ich suchte. Vielen Dank. :D
Manchmal denkt man wirklich zu kompiliziert :wink:

Bis dann
user defined image


Christian S. - Fr 04.10.02 19:30

Oder so:


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


MfG,
Peter


Klabautermann - 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