Hallo Gemeinde!
Ich möchte gerne wissen, welcher Monat im Datum vom Typ TDate gespeichert. Nur wie?
Meine Krücke funktioniert auch nicht:
function getMonat(Datum : TDateTime) : integer;
var
s : string;
monat, fehler : integer;
begin
Datum.DisplayFormat := ‚m‘;
s := Datum.asString;
Datum.DisplayFormat := ‚‘;
val(s, monat , fehler);
if fehler = 0 then
getMonat := monat
else
getMonat := 0
end;
Ist mir schon peinlich. Hättet ihr eine Lösung?
Chris