TDate enthält Uhrzeit?

[Bummi]

Delphi-Quellcode:

type
  TDateOnly= class(TInterfacedObject)
    private
      FValue:Double;
    procedure SetValue(const Value: Double);
    Property value:Double Read Fvalue Write SetValue ;
  End;


implementation

{$R *.dfm}
procedure TDateOnly.SetValue(const Value: Double);
begin
  Fvalue := Trunc(Value);
end;



procedure TForm5.Button1Click(Sender: TObject);
var
 d:TdateOnly;
begin
   d.value := now;
   Showmessage(DateTimeToStr((d.value)));
end;