Delphi_DateUtils中常用日期函数

Unit DateUtils

Day开头的函数

1.function DayOf(const A Value: TDateTime): Word 返回某日期是该月第几天

2.function DayOfTheMonth(const A Value: TDateTime): Word; 返回某日期是该月第几天

3.function DayOfTheWeek(const A Value: TDateTime): Word;返回某日期是一周当中的第几

天，此函数星期一是一周的第一天

4.function DayOfWeek(Date: TDateTime): Integer; 返回某日期是一周当中的第几天，此函数

星期日是一周的第一天

5.function DayOfTheYear(const A V alue: TDateTime): Word;返回该日期是该年的第几天，如

2012.02.01是2012年的第32天

6.function DaysBetween(const ANow, A Then: TDateTime): Integer;返回连个日期之前相差的

天数，不足一天的返回0

7.function DaySpan(const ANow, AThen: TDateTime): Double; 返回连个日期之前相差的天

数，不足一天的返回1

8.function DaysInAMonth(const AYear, AMonth: Word): Word;

function DaysInMonth(const A Value: TDateTime): Word; 两个函数均返回某年中某月的总天数，年份在1至9999之间，月份在1至12之间

9.function DaysInAYear(const AYear: Word): Word;

function DaysInYear(const A Value: TDateTime): Word; 两个函数均返回某一年的总天数

Month开头的函数

1.function MonthOf(const A V alue: TDateTime): Word; 返回某日期的在当月的总天数

2.function MonthOfTheYear(const A Value: TDateTime): Word; 返回某日期的在当月的总天

数

3.function MonthsBetween(const ANow, AThen: TDateTime): Integer;返回连个日期月数上差

值，不足一月的返回0

4.function MonthSpan(const ANow, A Then: TDateTime): Double; 返回连个日期月数上差值，

不足一月的返回1

Week开头的函数

1.function WeekOf(const A V alue: TDateTime): Word;返回该所在的星期为一年的第几个星期

2.function WeeksInAYear(const AYear: Word): Word;返回该年份中共有多少个星期

3.function WeeksBetween(const ANow, A Then: TDateTime): Integer;返回两个日期在星期上

的差值，不足一个星期的忽略掉

4.function WeekSpan(const ANow, AThen: TDateTime): Double; 返回两个日期在星期上的差

值，不足一个星期的不会忽略掉

Year开头的函数

1.function YearOf(const A Value: TDateTime): Word;返回该日期的年份

2.function YearsBetween(const ANow, A Then: TDateTime): Integer;返回两个日期的年份差

距，不足一年的忽略掉

3.function YearSpan(const ANow, AThen: TDateTime): Double; 返回两个日期的年份差距，

不足一年的不会忽略掉

4.function Yesterday: TDateTime;返回给定日期前一天的日期

其他

1.function IncMonth(const Date: TDateTime; NumberOfMonths: Integer): TDateTime;

NumberOfMonths为负值时，返回NumberOfMonths个月之前的日期，NumberOfMonths 为正值时，返回NumberOfMonths个月之后的日期，

2.function IsLeapYear(Year: Word): Boolean;判断某年是否是闰年

3.function EncodeDate(Year, Month, Day: Word): TDateTime;对给定的合法年月日进行日期

类型的编码

4.procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word); 对一个日期类型的

数据，将其分解成年，月，日的形式