Keine Rückgabe von Zeitanteilen

[Uwe Raabe]

Zitat von HPB:

Ich möchte in einer Anwendung einen Kalender einbauen.
Dazu benutze ich von TMS die Componenten und aus dieser Sammlung den TDBPlanner.
Date stellt ja im Kalender einen X-Belieben Tag des Jahres dar und aus diesem will ich die Zeitanteile haben.
Nun ist klar das ich das Now nicht verwenden kann, sondern auf Date zurück greifen muß.

Der logische Schluß zum "Nun ist klar" bleibt mir hier immer noch verborgen.

Sollte Date nicht das Date aus SysUtils sein, gibt es noch ein Date -Property im TPlannerMode , das im Mode -Property des TCustomPlanner vorkommt. Wenn du das meinst, das gibt tatsächlich nur den Tag zurück:

Delphi-Quellcode:

function TPlannerMode.GetDate: TDate;
begin
  Result := EncodeDate(FYear, FMonth, FDay);
end;

Vielleicht liefert dir TimeLineStart das gewünschte Ergebnis?