Delphi常用日期与时间函数

Delphi常用日期与时间函数1获取特定的日期与时间本小节将为您介绍Delphi所提供的获取特定日期与时间的函数.这些函数稍后将有详细的范例说明.笔者这里将以列表的方式先说明每一个函数所代表的意义,如图示:函数名称单元文件所代表的意义NowSysUtils此函数可返回现在的日期与时间,其返回值为TDateTime类型DateSysUtils此函数可返回现在的日期,其返回值为TDateTime类型TimeSysUtils此函数可返回现在的时间,其返回值为TDateTime类型TodayDateUtils此函数可返回今天的日期,其返回值为TDateTime类型,此函数的结果与Date函数相同.TomorrowDateUtils此函数可返回昨天的日期,其返回值为TDateTime类型YesterdayDateUtils此函数可返回明天的日期,其返回值为TDateTime类型CurrentyearSysUtils此函数可返回现在所属的年度,其返回值为4的整数.例如:2001HoursperdaySysUtils此常数定义每天的小时数.HoursPerDay=24;MinsperdaySysUtils此常数定义每天的分钟数.MinsPerDay=MinsPerDay*60SecsperdaySysUtils此常数定义每天的秒数.SecPerDay=MinsPerDay*60msecsperdaySysUtils此常数定义每天的毫秒数.MSecsPerDay=SecsperDay*1000Now(返回当前的日期时间)引用单元:SysUtils函数声明:FunctionNow:TDateTime;范例D-1ProcedureTForm1.Button1Click(Sender:TObject);VarMyDateTime:TDateTime;beginMyDateTime:=Now;Showmessage(DateTimeToStr(MyDateTime));end;Date(返回当前的日期)引用单元:SysUtils函数声明:FunctionDay:TDateTime;范例D-2ProcedureTForm1.Button1Click(Sender:TObject);VarMyDateTime:TDateTime;beginMyDateTime:=Date;Showmessage(DateTimeToStr(MyDateTime));end;Time(返回当前的时间)引用单元:SysUtils函数声明:FunctionTime:TDateTime;范例D-3ProcedureTForm1.Button1Click(Sender:TObject);VarMyDateTime:TDateTime;beginMyDateTime:=Time;Showmessage(DateTimeToStr(MyDateTime));end;Today(返回今天的日期)引用单元:DateUtils函数声明:FunctionToday:TDateTime;范例D-4ProcedureTForm1.Button1Click(Sender:TObject);VarMyDateTime:TDateTime;Begin//usesDateUtilsMyDateTime:=Today;Showmessage(DateTimeToStr(MyDateTime));end;Tomorrow(返回明天的日期)引用单元:DateUtils函数声明:FunctionTomorrow:TDateTime;范例D-5ProcedureTForm1.Button1Click(Sender:TObject);VarMyDateTime:TDateTime;Begin//usesDateUtilsMyDateTime:=Tomorrow;//MyDateTime:Now+1;//两者相同Showmessage(DateTimeToStr(MyDateTime));//不包含时间部分end;Yesterday(返回昨天的日期)引用单元:DateUtils函数声明:FunctionYesterday:TDateTime;范例D-6ProcedureTForm1.Button1Click(Sender:TObject);VarMyDateTime:TDateTime;Begin//usesDateUtilsMyDateTime:=Yesterday;//MyDateTime:Now-1;//两者相同Showmessage(DateTimeToStr(MyDateTime));//不包含时间部分end;CurrentYear(返回现在所属的年度)引用单元:SysUtils函数声明:FunctionCurrentYear:Word;范例D-7ProcedureTForm1.Button1Click(Sender:TObject);VarThisYear:Word;Beginthisyear:=CurrentYear;Showmessage(IntToStr(ThisYear));//4位整数end;HoursPerDay,MinsPerDay,SecsPerDay及MsecsPerDay等日期与时间常数.引用单元:SysUtils函数声明:FunctionCurrentYear:Word;范例D-8ProcedureTForm1.Button1Click(Sender:TObject);BeginShowmessage('每天的小时数='+IntToStr(HoursperDay));//24Showmessage('每天的分钟数='+IntToStr(MinsperDay));//1440Showmessage('每天的秒数='+IntToStr(SecsperDay));//24Showmessage('每天的毫秒数='+IntToStr(MSecsperDay));//24end;D.2日期处理函数:函数名称单元文件所代表的意义YearOfDateUtils此函数可获取TDateTime格式中的年度,其返回值为Word类型.YearsBeTweenDateUtils此函数可返回两个指定日期间的年份,一年以365.25天为计算单位.其返回值不包含小数部分YearSpanDateUtils此函数可返回两个指定日期间的年份,一年以365.25天为计算单位.其返回值包含小数部分StartOfAYearDateUtils此函数可返回特定年份的第一天EndOfAYearDateUtils此函数可返回特定年份的最后一天StrtOfTheYearDateUtils此函数可返回特定日期的该年第一天EndOfTheYearDateUtils此函数可返回特定日期的该年最后一天IncYearDateUtils此函数可将指定的TDateTime变量加上指定的年度,其默认值为1年MonthOfDateUtils此函数可获取TDateTime格式中的月份,其返回值为Word类型MonthOfTheYearDateUtils此函数可获取TDateTime格式中的月份,其返回值为Word类型MonthBetweenDateUtils次函数可返回两个指定日期间的月份数,一个月以30.4375天为计算单位.其返回值不包含小数部分MonthSpanDateUtils次函数可返回两个指定日期间的月份数,一个月以30.4375天为计算单位.其返回值包含小数部分StartOfAMonthDateUtils此函数可返回特定年月的第一天EndOfAMonthDateUtils此函数可返回特定年月的最后一天StartOfTheMonthDateUtils此函数可返回指定日期的该年的第一天EndOfTheMonthDateUtils此函数可返回指定日期的该年的最后一天IncMonthDateUtils此函数可将指定的TDateTime变量加上指定的月份,其默认值为加上1个月IncAMonthDateUtils此函数可将指定的年月日加上指定的月份,其默认值为加上1个月DaysInAYearDateUtils此函数可返回指定年份的总天数DaysInYearDateUtils此函数可返回指定TDateTime变量中该年分的总天数DaysInAMonthDateUtils此函数可返回指定月份的总天数DaysInMonthDateUtils此函数可返回指定TDateTime变量中该月份的总天数DaysOfDateUtils此函数可获取TDateTime格式中的日期,其返回值为Word类型DaysBetweenDateUtils此函数可获取格式中的日期,其返回值不包含小数部分DaySpanDateUtils此函数可返回两个指定日期间的天数,其返回值包含小数部分DayOfTheYearDateUtils此函数可返回指定TDateTime变量为该年的第几天.例如2月1日则返回32DayOfTheMonthDateUtils此函数可返回指定TDateTime变量为该月的第几天,其返回值介于1到31DayOfTheWeekDateUtils此函数可返回指定TDateTime变量为该周的第几天,其返回值介于1到7.星期一为第一天.DayOfWeekDateUtils此函数可返回指定TDateTime变量为该周的第几天,其返回值介于1到7.星期日为第一天.StartOfADayDateUtils此函数可返回指定日期一天的开始时间,其返回值为TDateTime类型.其时间默认为12:00:000AMEndOfADayDateUtils此函数可返回指定日期一天的结束时间,其返回值为TDateTime类型.其时间默认为11:59:999PMStartOfTheDayDateUtils此函数可返回指定TDateTime变量的一天开始时间,其返回值为TDateTime类型.其时间默认为:12:00:000AMEndOfTheDayDateUtils此函数可返回指定TDateTime变量的一天结束时间,其返回值为TDateTime类型.其时间默认为11:59:999PMIncDayDateUtils此函数可为指定日期加上特定的天数,其返回值为TDateTime类型,其默认天数为1天WeeksInAYearDateUtils此函数可返回指定年度的周数,其返回值不是52就是53WeeksInYearDateUtils此函数可返回指定TDateTime变量的周数,其返回值不是52就是53WeekOfDateUtils次函数可返回指定日期为该年的第几周,其返回值为1~53WeekOfTheYearDateUtils次函数可返回指定日期为该年的第几周,其返回值为1~53WeekOfTheMonthDateUtils次函数可返回指定日期为该月的第几周,其返回值为1~6WeeksBetweenDateUtils此函数可返回两个指定日期间的周数,其返回值不包含小数部分WeekSpanDateUtils此函数可返回两个指定日期间的周数,其返回值包含小数部分StartOfAweekDateUtils此函数可返回指定日期一周的开始时间,其返回值为TDateTime类型.其时间默认为12:00:000PMEndOfAWeekDateUtils此函数可返回指定日期一周的结束时间,其返回值为TDateTime类型.其时间默认为11:59:999PMStartOfTheWeekDateUtils此函数可返回指定TDateTime变量的一周开始时间,其返回值为TDateTime类型.其其时间默认为12:00:000AMEndOfTheWeekDateUtils此函数可返回指定TDateTime变量的一周结束时间,其返回值为TDateTime类型.其时间默认为11:59:999AMIncWeekDateUtils此函数可将指定日期加上指定周数,其返回值为TDateTime类型YearOf(返回指定日