您现在的位置:首页 >> 基础算法 >> window基础 >> 内容

Delphi中合并TTime and TDate到TDateTime

时间:2011/9/3 15:31:32 点击:

  核心提示: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;

Tags:合并 
作者:站长 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号