Format des Geburtsdatums

[Vaske]

Mit dem folgenden Code
begin
Text := copy( Schueler['Geburtsdatum'] , 3, 3)
end;
kann ich den Monat des Geburtsdatums in einem Report ausgeben. Leider wird der Geburtsmonat mit einem Punkt ausgegeben (z.B: .06) Mich würde interessieren, wie ich den Punkt wegbekomme.

[D.Jakel]

Guten Tag, wahrscheinlich kopiert der Befehl ab Position 3 die nächsten drei Zeichen, also würde ich copy( Schueler['Geburtsdatum'] , 4, 2) versuchen.

[Vaske]

Das funktioniert leider nicht. , 1, 1 gibt die erste Ziffer des Tages aus. 2,2 die zweite Ziffer. 3,3 den Monat mit vorangestelltem Punkt. Mich stört nur der Punkt.

[Vaske]

Hab es selbst geschafft:
begin
Text := copy( Schueler['Geburtsdatum'] , 3, 3);
Delete(Text,1,1);
end;

[Uli Dierkes]

, 1, 1 gibt die erste Ziffer des Tages aus. 2,2 die zweite Ziffer. 3,3 den Monat mit vorangestelltem Punkt.

Wenn ich die Syntax des Befehls richtig verstehe (ohne Gewähr), dann müsste aus dem Datum 13.04.2019 so extrahiert werden:
mit 1,1 => "1"
mit 2,2 => "3."
mit 3,3 => ".04"

Wenn das stimmt, dann sollte Herr Jakel mit dem Vorschlag
Text := copy( Schueler['Geburtsdatum'] , 4, 2);
Recht haben.

Sie schreiben "Das funktioniert leider nicht." Was extrahiert denn dieser Befehl? Etwa "4." bei meinem obigen Beispiel? Dann enthält eventuell das gespeicherte Datum für Januar bis September keine führende Monats-Null.

[011marTusch]

Schnelltest:
Ein Textfeld mit dem o. Befehl in der Version von Herrn Jakel in den Detailbereich und ich bekomme in der Vorschau seitenweise Geburtsmonate (zweistellig mit führender Null ohne Punkt). Der Befehl gibt ab dem 4. Zeichen zwei Zeichen des gewählten Strings aus.

Bei der Eingabe oder beim Import ergänzt das Programm fehlende führende Nullen beim Geburtsdatum automatisch.

[Christoph Sprung]

Mit 'FormtDateTime' lässt sich die Ausgabe von Datum-Strings auf vielfältige Weise manipulieren.

Die Monatsausgabe mit zwei Zeichen - ggf. mit führender Null - liefert

Code: Alles auswählen

begin

  Text :=  FormatDateTime('mm',Schueler['Geburtsdatum']);

end;

Die Monatsausgabe ohne führende Null liefert

Code: Alles auswählen

begin

  Text :=  FormatDateTime('m',Schueler['Geburtsdatum']);

end;