Delphi日期函数与日期加减

Delphi里有现成的函数可以实现日期加减，是在DateUtils单元里的。functionIncYear(constAValue:TDateTime;constANumberOfYears:Integer=1):TDateTime;//functionIncMonthisinSysUtilsfunctionIncWeek(constAValue:TDateTime;constANumberOfWeeks:Integer=1):TDateTime;functionIncDay(constAValue:TDateTime;constANumberOfDays:Integer=1):TDateTime;functionIncHour(constAValue:TDateTime;constANumberOfHours:Int64=1):TDateTime;functionIncMinute(constAValue:TDateTime;constANumberOfMinutes:Int64=1):TDateTime;functionIncSecond(constAValue:TDateTime;constANumberOfSeconds:Int64=1):TDateTime;functionIncMilliSecond(constAValue:TDateTime;constANumberOfMilliSeconds:Int64=1):TDateTime;Day开头的函数●.专业.专注. eUtilsfunctionDateOf(constAvalue:TDateTime):TDateTime;描述使用DateOf函数用来把一个TDateTime类型的变量转变成一个只带有日期的TDateTime类型变量。例如：showmessage(DateTimetostr(dateof(now())));你得到的是2003/03/19而showmessage(DateTimetostr((now())));得到的是2003/03/1910:50:49●functionDateTimeToStr(DateTime:TDateTime):string;描述DateTimeToString函数将TDateTime类型的参数DateTime转换成一个字符串，使用给定的全局变量ShortDateFormat的格式，时间部分按照给定的全局变量LongTimeFormat的格式。其中DateTime为零的部分将不会显示出来。.专业.专注. 例如：ShortDateFormat:='yyyymmdd';showmessage(DateTimetostr((now())));你将得到：2003031910:50:49●procedureDateTimeToString(varResult:string;constFormat:string;DateTime:TDateTime);描述：DateTimeToString方法将TDateTime类型的参数DateTime按照由参数Format提供的格式转化成字符串，并保存在Result中。对于Format的格式类型，请看Date-Timeformatstrings的帮助。例如：DateTimeToString(result,'yyyymmdd',now());那么result的结果为：2003031910:50:49●procedureDateTimeToSystemTime(DateTime:TDateTime;varSystemTime:TSystemTime);.专业.专注. 描述：有时为了调用API函数来使用系统时间，你可以使用DateTimeToSystemTime方法，来将一个TDateTime类型的时间变量转换成一个TSystemTime类型的系统时间。●functionDateTimeToUnix(constAvalue:TDateTime):Int64;描述：使用DateTimeToUnix函数来将一个TDateTime型时间变量转换成一个相应的Unix格式的日期和时间。Unixdate-and-timevaluesareencodedasthenumberofsecondsthathaveelapsedsincemidnightatthestartofJanuary1,1970.●functionDateToStr(Date:TDateTime):string;描述：使用DateToStr函数能得到TDateTime日期时间类型的日期部分。日期的转换格式依赖于全局变量ShortDateFormat。.专业.专注. ●functionDayOf(constAvalue:TDateTime):Word;描述：对于给定的TDateTime类型的日期时间，使用DayOf函数能得到该日期是该月份的第几天。该函数的返回数值在1到31之间注意：DayOf函数得到的结果与DayOfTheMonth相同。例如：showmessage(inttostr(dayof(now)));得到的是：19(今天是某月19日)●functionDayOfTheMonth(constAvalue:TDateTime):Word;与DayOf相同。●functionDayOfTheWeek(constAvalue:TDateTime):Word;描述：对于给定的TDateTime类型的日期时间，使用DayOfTheWeek函数能得到该日期是该星期的第几天。DayOfTheWeek函数的返回数值为1到7，其中1表示星期一，而7表示星.专业.专注. 期日。注意：DayOfTheWeek是ISO8601标准的(此标准为星期一是一周的第一天)。对于一周的第一天是星期日的标准，如果想获得星期数，请使用DayOfWeek函数。Tip:Tomakethereturnvaluemorereadable,usetheDayofweekconstants.●functionDayOfTheYear(constAvalue:TDateTime):Word;描述：根据给定的日期时间参数Avalue，使用DayOfTheYear函数能得到在该日期所在的年份中，该Time到的结果为1，"1月2日"所得到的结果为2，"2月1日"所得到的结果就为32，依次类推。●functionDayOfWeek(Date:TDateTime):Integer;DescriptionDayOfWeekreturnsthedayoftheweekofthespecifieddateasanintegerbetween1and7,whereSundayisthefirstdayoftheweekandSaturdayistheseventh..专业.专注. Note:DayOfWeekisnotcompliantwiththeISO8601standard,whichdefinesMondayasthefirstdayoftheweek.ForanISO8601compliantversion,usetheDayOfTheWeekfunctioninstead.描述：按照给定的TDateTime类型的参数Date，DayOfWeek函数得到一周中的第几天，从1到这里星期日是一周的第一天，而星期六是第七天。●functionDaysBetween(constANow,AThen:TDateTime):Integer;描述：根据两个TDateTime类型的日期时间变量ANow和AThen，DaysBetween函数能得到两者之间的天数的差距。DaysBetween仅仅根据天数的不同来计算。因此，对于1999年12月31日下午11点59分到2000年1月1日11点58分，该函数得到的结果是0，因为两者之间的时间差别还差1分钟才到1天。●functionDaysInAMonth(constAYear,AMonth:Word):Word;.专业.专注. 描述：对于各定的年份和月份，DaysInAMonth函数能得到该月份的总天数。年份应该为从1到9999月份应该为从1到12●functionDaysInAYear(constAYear:Word):Word;描述：对于给定的年份，DaysInAYear函数能得到该年份的总天数。年份应该为1到9999。●functionDaysInMonth(constAvalue:TDateTime):Word;描述：根据给定的TDateTime类型的时间日期参数Avalue，DaysInMonth函数能得到该月份的总天数。●functionDaysInYear(constAvalue:TDateTime):Word;描述：根据给定的TDateTime类型的时间日期参数Avalue，DaysInYear函数能得到该年份的总天.专业.专注. 数。数●functionDaySpan(constANow,AThen:TDateTime):Double;描述：Span距。与DaysBetween函数不同，DaysBetween函数只是计算整的天数，而DaySpan函数会将不足一天的数也得到。注意：此函数返回的数值为Double型。☆Month开头的函数●functionMonthOf(constAvalue:TDateTime):Word;描述：根据给定的TDateTime类型的时间日期参数Avalue，MonthOf函数能得到该年份的该月份数。MonthOf返回数值为1到12。注意：MonthOf函数得到的数值与MonthOfTheYear函数相同.专业.专注. ●functionMonthOfTheYear(constAvalue:TDateTime):Word;与MonthOf函数相同。●functionMonthsBetween(constANow,AThen:TDateTime):Integer;描述：根据两个给定的TDateTime类型的参数ANow和AThen，MonthsBetween函数能得到两个日期在月份上差距数。因为月份的天数是不同的，所以MonthsBetween函数返回的是一个近似值，该近似值基于每个月份为30.4375天。不足一个月的数字将不被计算。因此，例如，对于2月1日到2月28日，MonthsBetween返回的数值为0。同样，对于2月1日到3月1日，MonthsBetween返回的数值也是0。●functionMonthSpan(constANow,AThen:TDateTime):Double;描述：根据两个给定的TDateTime类型的参数ANow和AThen，MonthsBetween函数能得到两个日期在月份上差距数。因为月份的天数是不同的，所以MonthsBetween函数返回的是一个近似值，该近似.专业.专注. 值基于每个月份为30.4375天。与MonthsBetween函数不同，MonthsBetween函数不计算不足一个月的数字，MonthSpan函数将会得到不足一个月的数字。注意：此函数返回的类型为Double●functionMonthStr(DateTime:TDateTime):string;DescriptionHTTPmessageheaderspermitseveralformatsfortherepresentationofdateandtimevalues.MonthStrconvertsaTDateTimevalueintoastringrepresentingthemonth.MonthStrallowsserverapplicationstoworkwithdatevaluestakenfromHTTPrequestmessages,withoutworryingaboutthedetailsofhowtheyareformatted.☆Week开头的函数●functionWeekOf(constAvalue:TDateTime):Word;描述：根据TDateTime类型的日期时间参数AValu，WeekOf函数会得到该星期为一年的第几个星期。.专业.专注. ●functionWeeksInAYear(constAYear:Word):Word;描述：WeeksInAYear函数根据年份得到在该年份中共包含多少个星期。●functionWeeksBetween(constANow,AThen:TDateTime):Integer;描述：根据两个TDateTime类型的日期时间参数ANow和AThen，WeeksBetween函数将得到这两个时间在星期上的差数。如果差数不足一个星期，则忽略掉。●functionWeekSpan(constANow,AThen:TDateTime):Double;描述：根据两个TDateTime类型的日期时间参数ANow和AThen，WeeksBetween函数将得到这两个时间在星期上的差数。如果差数不足一个星期，则WeekSpan函数不会忽略掉。注意：此函数的返回类型为Double☆Year开头的函数.专业.专注. ●functionYearOf(constAvalue:TDateTime):Word;描述：根据给定的TDateTime类型的日期时间参数Avalue，YearOf函数能得到该日期的年份数字。YearOf函数返回的数值为从1到9999●functionYearsBetween(constANow,AThen:TDateTime):Integer;描述：根据两个给定的TDateTime类型的参数ANow和AThen，YearsBetween函数能得到两个上差距数。因为年份的天数是不同的，所以YearsBetween函数返回的是一个近似值，该近似值基于每年的天数为365.25天。不足的一年的差距将不会被计算。因此例如：对于1月1日和12月31日，如果这两个日期在同一年，则YearsBetween返为0；如果这两个日期在临近的年份，则YearsBetween函数返回数值为1。●functionYearSpan(constANow,AThen:TDateTime):Double;描述：.专业.专注. 根据两个给定的TDateTime类型的参数ANow和AThen，YearsBetween函数能得到两个上差距数。因为年份的天数是不同的，所以YearsBetween函数返回的是一个近似值，该近似值基于每年的天数为365.25天。与YearsBetween函数不同，YearsBetween函数将忽略掉不足一年的数字，而YearSpan将计算不足一年的数字。注意：该函数返回类型为Double●functionYesterday:TDateTime;描述：Yesterday函数能得到当前日期的前一天的日期，返回数值中不包括时间部分。例如：当前日期是2003/3/19则showmessage(datetimetostr(Yesterday));将得到2003/3/18☆日期的合成●functionEncodeDate(Year,Month,Day:Word):TDateTime;.专业.专注. 描述：TDateTime量。●functionEncodeDateDay(constAYear,ADayOfYear:Word):TDateTime;描述：EncodeDateDay将根据参数年份和天数，而得到一个TDateTime类型的时间变量。其中AYear为1到9999。ADayOfYear为日子在该年份顺序排列的天数，例如，1月1日时，ADayOfYear为1，2月2日时，ADayOfYear为2，3月1日时，ADayOfYear为32。●functionEncodeDateMonthWeek(constAYear,AMonth,AWeekOfMonth:Word;constADayOfWeek:Word=1):TDateTime;描述：TDateTime类型的时间变量。其中AYear为1到9999。.专业.专注. 其中AMonth为1到12。AWeekOfMonth是在该月份的星期数，1表示第一个星期，可能包含4天或更多的天数。注意，一个月的第一天如果是星期5，星期6或星期日，用表示这三天的AMonth数值必须设定为上一个月份的数字，同时AWeekOfMonth要设为在上一个月所在的星期数。同样，如果一个月的最后一天是星期1，星期2，或星期3，那么用表示这三天的AMonth数值必须设定为下一个月份的数字，同时AWeekOfMonth为1。ADayOfWeek表示星期几，星期一为1，星期二为2。●functionEncodeDateTime(constAYear,AMonth,ADay,AHour,AMinute,ASecond,AMilliSecond:Word):TDateTime;描述：TDateTime类型●functionEncodeDateWeek(constAYear,AWeekOfYear:Word;constADayOfWeek:Word=1):TDateTime;.专业.专注. 描述：EncodeDateWeek根据参数年份、星期数、星期几来得到一个TDateTime类型日期时AWeekOfYear是在该年份的星期数，1表示第一个星期，可能包含4天或更多的天数。注意，一年的第一天如果是星期5，星期6或星期日，用表示这三天的AYear数值必须设定为上一个年份的数字，同时AWeekOfYear要设为在上一个年所在的星期数。同样，如果一年的最后一天是星期1，星期2，或星期3，那么用表示这三天的AYear数值必须设定为下一个年份的数字，同时AWeekOfYear为1。ADayOfWeek表示星期几，星期一为1，星期二为2。●functionEncodeTime(Hour,Min,Sec,MSec:Word)