核心提示：procedure TForm1.Button1Click(Sender: TObject);var DateValue : TDate; TimeValue: TTime; OutDateTime...
procedure TForm1.Button1Click(Sender: TObject);var
DateValue : TDate;
TimeValue: TTime;
OutDateTime : TDateTime;
begin
DateValue:=Date;
TimeValue:=Time;
OutDateTime := Int(DateValue) + Frac(TimeValue);
ShowMessage(DateTimeToStr(OutDateTime));
end;
