在delphi里怎样定义一个日期型的变量

 我来答
windblast
2017-03-22 · 知道合伙人软件行家
windblast
知道合伙人软件行家
采纳数:5633 获赞数:13621
毕业于空军第一航空学院电子专业,1991年开始接触电脑,从事多年计算机编程,具有较丰富的经验。

向TA提问 私信TA
展开全部

delphi 语言里,与日期、时间举敏者有关的数据类型有三种:TDate、TTime 和 TDateTime。这三种数据类型的定义都在 System 单元中,如下所示:



从图中可以看出,拿橡其实这三种类型只是同一种数据类型的别正薯名。

TDateTime 使用 Double 浮点数来记录日期时间,其中,浮点数的整数部分代表日期,小数点后面的部分代表时间。以下是关于 delphi 帮助文档中对这个数据类型的详细描述:



在 delphi 语言里,声明一个日期变量比较简单,使用 var 来定义一个变量,用 const 来定义一个常量,以下是示例代码:


procedure TForm1.Button1Click(Sender: TObject);
const
  Birthday: TDate = 33208; //定义一个日期型常量
var
  aDate: TDateTime;        //定义一个日期时间型变量
  s: string;
begin
  aDate := Today; //获取今天的日期
  s := '今天是 ' + FormatDateTime('yyyy 年 M 月 d 日。',aDate) + #13#10 + #13#10 +
       '你出生于 ' + FormatDateTime('yyyy 年 M 月 d 日。',Birthday) + #13#10 + #13#10 +
       '恭喜你!你在地球上已经生活了 ' + IntToStr(DaysBetween(aDate,Birthday)) + ' 天!';
  MessageBox(Handle, PChar(s) ,'信息提示', MB_OK + MB_ICONINFORMATION);
end;


代码运行截图:


推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式