delphi日期与时间相关获取与转换函数

更多函数见：DateUnits单元

来自：https://www.delphitop.com/html/shijian/4943.html
注：要使用uses DateUtils单元
Now 返回当前日期及时间
Date 返回当前日期
Time 返回当前时间
WeekOfTheMonth 返回当前月的第几周
DayOfTheWeek(now()) 返回当周的第几天
StartOfTheWeek(Now()) 返回本周第一天，Week可替换为Year/Week/Day/Month，返回本年本周本月第一天，Now()可以改成Date()就只返回日期
EndOfTheWeek(Now()) 返回本周最后一天，Week可替换为Year/Week/Day/Month，返回本年本周本月最后一天，Now()可以改成Date()就只返回日期

DateTimeToStr 按缺省格式将日期和时间值转换为字符串；特定格式转换可用FormatDateTime函数
DateTimeToString 按缺省格式将日期和时间值拷贝到字符串缓冲区
DateToStr 将TDateTime值的日期部分转为字符串
TimeToStr 将TDateTime值的时间部分转为字符串
FormatDateTime 按特定格式将日期和时间值转换为字符串
StrToDateTime 将带有日期和时间信息的字符串转换为TdateTime类型值，如串有误将引发一个异常
StrToDate 将带有日期信息的字符串转换为TDateTime类型格式
StrToTime 将带有时间信息的字符串转换为TDateTime类型格式
DayOfWeek 根据传递的日期参数计算该日期是一星期中的第几天
DecodeDate 根据日期值返回年、月、日值
DecodeTime 根据时间值返回时、分、秒、毫秒值
EncodeDate 组合年、月、日值为TDateTime类型值
EncodeTime 组合时、分、秒、毫秒值为TDateTime类型值

计算两个日期或时间之间隔的年，月，日，时，分，秒数
uses DateUtils
var Date1,Date2:Tdatetime; time1,time2:Ttime;
Date1:=StrToDateTime('2009-5-20 10:10:10');
Date2:=StrToDateTime('2009-5-20 10:12:10');
time1:=StrToDateTime('10:10:10');
time2:=StrToDateTime('10:12:10');

计算两个时间或日期之间间隔的年，月，日，时，分，秒
  ShowMessage(IntToStr(secondsBetween(Date1,Date2)));
  ShowMessage(IntToStr(YearsBetween(Date1,Date2)));
  ShowMessage(IntToStr(MonthsBetween(Date1,Date2)));
  ShowMessage(IntToStr(WeeksBettween(Date1,Date2)));
  ShowMessage(IntToStr(DaysBetween(Date1,Date2)));
  ShowMessage(IntToStr(HoursBetween(Date1,Date2)));
  ShowMessage(IntToStr(MinutesBetween(Date1,Date2)));
  ShowMessage(IntToStr(secondsBetween(Time1,time2)));

把日期转为指定的格式
FormatDateTime('yyyy-MM-dd', dateValue); // 格式化为 "2023-11-23"
FormatDateTime('yyyy年MM月dd日 hh:mm:ss', dateValue); // 格式化为 "2023年11月23日 12:34:56"
FormatDateTime('dd/MM/yyyy HH:mm:ss.zzz', dateValue); // 格式化为 "23/11/2023 12:34:56.789"
FormatDateTime('yyyymmddhhnnss', now())