Delphi 时间操作函数

最新推荐文章于 2024-01-29 10:03:21 发布

左眼看成爱

最新推荐文章于 2024-01-29 10:03:21 发布

阅读量785

点赞数 1

分类专栏： Delphi 文章标签：时间操作

本文链接：https://blog.csdn.net/wh445306/article/details/117956880

版权

本文介绍了在Delphi中进行时间操作的各种函数和技巧，包括获取当前时间、日期转换、时间间隔计算等，帮助开发者更有效地处理时间相关的问题。

摘要由CSDN通过智能技术生成

DateUtils.StartOfTheMonth(Now) //本月第一天
DateUtils.EndOfTheMonth(Now)   //本月最后一天

DateUtils.YearsBetween()
DateUtils.MonthsBetween()
DateUtils.DaysBetween();
DateUtils.HoursBetween();
DateUtils.MinutesBetween();
DateUtils.SecondsBetween();
DateUtils.MilliSecondsBetween()

DateUtils.IncYear();
DateUtils.IncMonth();
DateUtils.IncWeek();
DateUtils.IncDay();
DateUtils.IncHour();
DateUtils.IncMinute();
DateUtils.IncSecond();
DateUtils.IncMilliSecond();

//两个时间差是否在 xx 个年、月，周，天，小时，分钟，秒，毫秒内
DateUtils.WithinPastYears();
DateUtils.WithinPastMonths();
DateUtils.WithinPastWeek();
DateUtils.WithinPastDays();
DateUtils.WithinPastHours();
DateUtils.WithinPastMinutes();
DateUtils.WithinPastSeconds();
DateUtils.WithinPastMilliSeconds();

procedure TForm1.FormCreate(Sender: TObject);
var
t1,t2: TDateTime;
b: Boolean;
begin
t1 := StrToDateTime('2009-5-20 11:22:33');
t2 := StrToDateTime('2009-5-21 11