Delphi DaysBetween 用法片段


本文整理自网络,侵删。

 


uses DateUtils ;

procedure TForm1.FormCreate(Sender: TObject);
const
  Birthday: TDate = 33208; //定义一个日期型常量 1990/12/1   caption:=FormatDateTime('dd/mm/yyyy',Birthday);
var
  aDate: TDateTime;        //定义一个日期时间型变量
  s: string;
begin

  aDate := Now(); //获取今天的日期
  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;

相关阅读 >>

Delphi 加载excel 导入数据库

Delphi hash类

Delphi ini 文件操作记要: 使用 tmeminifile

Delphi2010:把stringgrid数据保存到excel

Delphi 让控制台窗口不现实出来

Delphi 10.3 开发app 在android手机上获取imei

Delphi 让程序支持外来文件拖放的单元文件

Delphi 字符串反转函数

Delphi2007在win7系统下的日期问题

Delphi中内嵌汇编

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...