Format "0001" IntToStr

[strom]

Hallo,

möchte das aktuelle Datum + eine fortlaufende Zahl anzeigen lassen.

Anzeige Beispiel: 1506010001

Lasse ich das "(Format('%.3d')" weg wird der Text so angezeigt: 1506011!
Das Ziel ist aber:" 0001" (1506010001)

Was ist hier falsch?

Delphi-Quellcode:

ShowMessage((FormatDateTime('yymmdd',now))+(Format('%.3d',[IntToStr(zaehler)])));
inc(zaehler);

[zeras]

Zitat:

Zitat von strom (Beitrag 1303823)

Delphi-Quellcode:

ShowMessage((FormatDateTime('yymmdd',now))+(Format('%.3d',[zaehler])));
inc(zaehler);

Zähler ist doch ein integer. Warum willst du diesen vorher noch mit "IntToStr" in einen String umwandeln. Dafür ist ja "Format" da.
Ich habe es oben schon einmal geändert.

[strom]

Danke

[himitsu]

Eine maximal 3-stellige Zahl?Siehe dein Formatstring, oder doch eine 4-stellige?

Man kann natürlich auch die Feinheiten von nur einer der beiden Formatfunktionen ausnutzen. :stupid:
Ansonsten natürlich einfach Beides kombinieren.

Delphi-Quellcode:

Format('%.2d%.2d%.2d%.3d', [YearOf(Now), MonthOf(Now), DayOf(Now), Zähler])

FormatDateTime('yymmddzzz', IncMilliSecond(DateOf(Now), Zähler))

FormatDateTime('yymmddzzz', DateOf(Now) + Zähler / MSecsPerDay)  // *hust*

FormatDateTime('yymmdd', Now) + Format('%.3d', [Zähler])

Format('%s%.3d', [FormatDateTime('yymmdd', Now), Zähler])

Und IntToStr kann natürlich nicht funktionieren, jedenfalls nicht zusammen mit %d, denn als String ist es natürlich %s.