日期时间函数

在做日期时间的计算时候常用的函数

---

Use DateUtils
var a: TDateTime;

①HourOf(a)->得到小时的值

②DayOf(a)->得到天的值,一年中的第几天

③MonthOf(a)->得到月的值,一年中的第几月

④MinuteOf(a)->得到小时内的分钟值

⑤SecondOf(a)->得到分钟内的秒值

⑥格式化日期的方式 ShortDateFormat := 'YYYY-MM-DD'注意:月份 MM 一定要大写

⑦DaysBetween(Const ANow,AThen:TDateTime):integer;二日期之间的天数差,精确到天
  DaySpan(Const ANow,AThen:TDateTime):Double;二日期之间的天数差,精确到小时

⑧一天在一个月中第几天,一天在一年中的第几天还有如下二个方法
  DaysInMonth(Const AYear,AMonth:Word):Word;
  DaysInYear(Const AYear:Word):Word;

⑨GetTickCount->得到自电脑开机以来所经过的毫秒数

⑩FormatDateTime(Const Format:string; DateTime:TDateTime):stirng;
-----------------------------------------------------------
  procedure TForm1.Button2Click(Sender: TObject);
var
  s:string;
begin
  s:=FormatDateTime('''TodayIs:''YYYY-MM-DD ddd ',NOW);
  ShowMessage(s);
end;
ddd->中文星期  mmm->中文月份  zzz->毫秒