Erledigt - DateUtils.RecodeTime und 0 Sekunden

[himitsu]

Bei mir stimmt es und ist am Ende immernoch :59 .

Wurde in deinem Programm am Round-Mode rumgepfuscht?

TDateTime (Double) ist noch ein paar Jährchen genau genug, um auf mindestens 1 Millisekunde genau zu sein.
Also Rundungsfehler aufgrund der Datengröße kann es nicht sein.
Bleibt also nur noch ein anderer Rundungsmodus oder eine kaputte FPU.


PS: Ab dem 19. Januar 2038 um 03:14:08 wird deine Funktion wieder kaputt sein, wenn der Integer zu klein für den Unix-Timestamp ist.


[edit]
Ahh, also doch ein Rundungsproblemchen, nur wo anders.

und
FormatDateTime

[Glados]

Zitat:

Bei mir stimmt es und ist am Ende immernoch :59 .
Ahh, also doch ein Rundungsproblemchen, nur wo anders.

Mit Trunc oder Round?
Genau. Trunc durch Round tauschen und alles ist gut.

Zitat:

PS: Ab dem 19. Januar 2038 um 03:14:08 wird deine Funktion wieder kaputt sein, wenn der Integer zu klein für den Unix-Timestamp ist.

Na dann werde ich schon jetzt alle Integer-Timestamps durch irgendwas anderes ersetzen. Int64, hilft das?
Ansonsten baue ich alles nach ISO 8601 YYYYMMDDHHMMSS) um.
( Ich habe hierzu ein neues Thema eröffnet: http://www.delphipraxis.net/193693-d...ml#post1379906 )

Zitat:

FormatDateTime

Was FormatDateTime angeht: es werden keine Uhrzeiten 00:00:00 dargestellt. Findet sich auch einiges bei Google drüber.
Habe das jetzt anders gfelößt.
Aber wie kommt man auf die beknackte Idee 00:00:00 nicht darstellen zu müssen?

[Uwe Raabe]

Zitat von Glados:

Zitat:

FormatDateTime

Was FormatDateTime angeht: es werden keine Uhrzeiten 00:00:00 dargestellt. Findet sich auch einiges bei Google drüber.
Habe das jetzt anders gfelößt.
Aber wie kommt man auf die beknackte Idee 00:00:00 nicht darstellen zu müssen?

Das gilt doch aber nur, wenn du als Format einen Leerstring oder 'c' mitgibst. Versuch mal 'ddddd t' als Format-String.

[Sherlock]

Klar geht das mit FormatDateTime, gerade unter Tokyo.1 getestet.

Delphi-Quellcode:

procedure TForm10.Button1Click(Sender: TObject);
var
  mytime: TDateTime;
begin
  mytime := Trunc(Now);
  Label1.Caption := FormatDateTime('ddddd tt', mytime, TFormatSettings.Create);
end;

Das liefert im Label dann "30.08.2017 00:00:00"

Ansonsten ist das Verhalten von DateTimeToString "as designed".

Sherlock

[sko1]

Zitat:

Gerade entdeckt, dass DateTimeToStr() keine Zeit darstellt, wenn es 00:00:00 ist.

Dann nimm FormatDateTime und Du hast, egal wie die Uhrzeit ist, immer die gleiche Formatierung!

Ciao
Stefan