Delphi 常用日期与时间函数Word文档格式.docx
- 文档编号:16298997
- 上传时间:2022-11-22
- 格式:DOCX
- 页数:64
- 大小:27.01KB
Delphi 常用日期与时间函数Word文档格式.docx
《Delphi 常用日期与时间函数Word文档格式.docx》由会员分享,可在线阅读,更多相关《Delphi 常用日期与时间函数Word文档格式.docx(64页珍藏版)》请在冰豆网上搜索。
此常数定义每天的毫秒数.MSecsPerDay=SecsperDay*1000
Now(返回当前的日期时间)
引用单元:
函数声明:
FunctionNow:
TDateTime;
范例D-1
ProcedureTForm1.Button1Click(Sender:
TObject);
Var
MyDateTime:
begin
=Now;
Showmessage(DateTimeToStr(MyDateTime));
end;
Date(返回当前的日期)
FunctionDay:
TDateTime;
范例D-2
=Date;
Time(返回当前的时间)
FunctionTime:
范例D-3
=Time;
Today(返回今天的日期)
FunctionToday:
范例D-4
Begin
//usesDateUtils
=Today;
Tomorrow(返回明天的日期)
FunctionTomorrow:
范例D-5
=Tomorrow;
//MyDateTime:
Now+1;
//两者相同
//不包含时间部分
Yesterday(返回昨天的日期)
FunctionYesterday:
范例D-6
=Yesterday;
Now-1;
CurrentYear(返回现在所属的年度)
FunctionCurrentYear:
Word;
范例D-7
ThisYear:
Word;
thisyear:
=CurrentYear;
Showmessage(IntToStr(ThisYear));
//4位整数
HoursPerDay,MinsPerDay,SecsPerDay及MsecsPerDay等日期与时间常数.
FunctionCurrentYear:
范例D-8
Showmessage('
每天的小时数='
+IntToStr(HoursperDay));
//24
每天的分钟数='
+IntToStr(MinsperDay));
//1440
每天的秒数='
+IntToStr(SecsperDay));
每天的毫秒数='
+IntToStr(MSecsperDay));
D.2日期处理函数:
YearOf
此函数可获取TDateTime格式中的年度,其返回值为Word类型.
YearsBeTween
此函数可返回两个指定日期间的年份,一年以365.25天为计算单位.其返回值不包含小数部分
YearSpan
此函数可返回两个指定日期间的年份,一年以365.25天为计算单位.其返回值包含小数部分
StartOfAYear
此函数可返回特定年份的第一天
EndOfAYear
此函数可返回特定年份的最后一天
StrtOfTheYear
此函数可返回特定日期的该年第一天
EndOfTheYear
此函数可返回特定日期的该年最后一天
IncYear
此函数可将指定的TDateTime变量加上指定的年度,其默认值为1年
MonthOf
此函数可获取TDateTime格式中的月份,其返回值为Word类型
MonthOfTheYear
MonthBetween
次函数可返回两个指定日期间的月份数,一个月以30.4375天为计算单位.其返回值不包含小数部分
MonthSpan
次函数可返回两个指定日期间的月份数,一个月以30.4375天为计算单位.其返回值包含小数部分
StartOfAMonth
此函数可返回特定年月的第一天
EndOfAMonth
此函数可返回特定年月的最后一天
StartOfTheMonth
此函数可返回指定日期的该年的第一天
EndOfTheMonth
此函数可返回指定日期的该年的最后一天
IncMonth
此函数可将指定的TDateTime变量加上指定的月份,其默认值为加上1个月
IncAMonth
此函数可将指定的年月日加上指定的月份,其默认值为加上1个月
DaysInAYear
此函数可返回指定年份的总天数
DaysInYear
此函数可返回指定TDateTime变量中该年分的总天数
DaysInAMonth
此函数可返回指定月份的总天数
DaysInMonth
此函数可返回指定TDateTime变量中该月份的总天数
DaysOf
此函数可获取TDateTime格式中的日期,其返回值为Word类型
DaysBetween
此函数可获取格式中的日期,其返回值不包含小数部分
DaySpan
此函数可返回两个指定日期间的天数,其返回值包含小数部分
DayOfTheYear
此函数可返回指定TDateTime变量为该年的第几天.例如2月1日则返回32
DayOfTheMonth
此函数可返回指定TDateTime变量为该月的第几天,其返回值介于1到31
DayOfTheWeek
此函数可返回指定TDateTime变量为该周的第几天,其返回值介于1到7.星期一为第一天.
DayOfWeek
此函数可返回指定TDateTime变量为该周的第几天,其返回值介于1到7.星期日为第一天.
StartOfADay
此函数可返回指定日期一天的开始时间,其返回值为TDateTime类型.其时间默认为12:
00:
000AM
EndOfADay
此函数可返回指定日期一天的结束时间,其返回值为TDateTime类型.其时间默认为11:
59:
999PM
StartOfTheDay
此函数可返回指定TDateTime变量的一天开始时间,其返回值为TDateTime类型.其时间默认为:
12:
EndOfTheDay
此函数可返回指定TDateTime变量的一天结束时间,其返回值为TDateTime类型.其时间默认为11:
999PM
IncDay
此函数可为指定日期加上特定的天数,其返回值为TDateTime类型,其默认天数为1天
WeeksInAYear
此函数可返回指定年度的周数,其返回值不是52就是53
WeeksInYear
此函数可返回指定TDateTime变量的周数,其返回值不是52就是53
WeekOf
次函数可返回指定日期为该年的第几周,其返回值为1~53
WeekOfTheYear
WeekOfTheMonth
次函数可返回指定日期为该月的第几周,其返回值为1~6
WeeksBetween
此函数可返回两个指定日期间的周数,其返回值不包含小数部分
WeekSpan
此函数可返回两个指定日期间的周数,其返回值包含小数部分
StartOfAweek
此函数可返回指定日期一周的开始时间,其返回值为TDateTime类型.其时间默认为12:
000PM
EndOfAWeek
此函数可返回指定日期一周的结束时间,其返回值为TDateTime类型.其时间默认为11:
StartOfTheWeek
此函数可返回指定TDateTime变量的一周开始时间,其返回值为TDateTime类型.其其时间默认为12:
EndOfTheWeek
此函数可返回指定TDateTime变量的一周结束时间,其返回值为TDateTime类型.其时间默认为11:
999AM
IncWeek
此函数可将指定日期加上指定周数,其返回值为TDateTime类型
YearOf(返回指定日期的年度)
FunctionYearOf(constAValue:
TDateTime):
范例D-9
//三者都相同
年度='
+IntToStr(YearOf(Now)));
+IntToStr(YearOf(Date)));
+IntToStr(YearOf(Today)));
YearsBetween(返回两个指定日期间的年份)
FunctionYearsBetween(constANow,AThen:
Integer;
范例D-10
//不包含小数,一年以365.25天为计算单位
几年='
+IntToStr(YearsBetween(Now,Now+560)));
//1
YearSpan(返回两个指定日期间的年份)
FunctionYearsSpan(constANow,AThen:
Double;
范例D-11
//包含小数,一年以365.25天为计算单位
+FloatToStr(YearSpan(Now,Now+560)));
//1.53….
StartOfAYear(返回特定年份的第一天)
FunctionStartOfAYear(constAYear):
范例D-12
Showmessage(DateTimeToStr(StartOfAYear(2001)));
//2001/1/1早上12:
00
EndOfAYear(返回特定年份的最后一天)
FunctionEndOfAYear(constAYear):
范例D-13
Showmessage(DateTimeToStr(EndOfAYear(2001)));
//2001/12/31下午11:
59
StartOfTheYear(返回指定日期的该年的第一天)
FunctionStartOfTheYear(constAValue:
范例D-14
Showmessage(DateTimeToStr(StarOfTheYear(Now)));
//指定的年度/1/1早上12:
EndOfTheYear(返回指定日期的该年的最后一天)
FunctionEndOfTheYear(constAValue:
范例D-15
//指定年度/12/31下午11:
IncYear(将指定的TDateTime变量加上指定的年)
FunctionIncYear(constAValue:
TDateTimel;
constANumberOfYears:
Integer=1):
范例D-16
var
myDateTime:
=IncYear(Now,3);
//往后加3年
Showmessage(DateTimeToStr(myDateTime));
End;
MonthOf(获取TDateTime格式中的月份)
FunctionMonthOf(constAValue:
范例D-17
m:
Integer;
=Now;
//两个函数获取相同的结果
=MonthofTheYear(myDateTime);
Showmessage(IntToStr(m));
MonthOfTheYear(获取TDateTime格式中的月份)
FunctionMonthOfTheYear(constAValue:
范例D-18
i:
f:
=MonthsBetween(Now,Now+89);
//差89天
Showmessage(IntToStr(i));
//2
=MonthSpan(Now,Now+89);
Showmessage(FloatToStr(f));
//2.924…
MonthsBetween(返回两个指定日期间的月份数)
FunctionMonthsBetween(constANow,AThen:
MonthSpan(返回两个指定日期间的月份数)
FunctionMonthSpan(constANow,AThen:
StartOfAMonth(返回特定年月的第一天)
FunctionStartOfAMonth(constAYear,AMonth:
Word):
EndOfAMonth(返回特定年月的最后一天)
FunctionEndOfTheMonth(constAYear,AMonth:
StartOfTheMonth(返回特定年月的第一天)
FunctionStartOfTheMonth(constAValue:
EndOfTheMonth(返回特定年月的最后一天)
FunctionEndOfTheMonth(constAValue:
范例D-19
Year,Month:
Year:
=YearOf(Now);
Month:
=MonthOf(Now);
//找出当前月份的第一天
=StartOfAMonth(Year,Month);
//找出当前月份的最后一天
=EndOfAMonth(Year,Month);
=StartOfTheMonth(Now);
=EndOfTheMonth(Now);
IncMonth(指定的TDateTime变量加上指定的月份)
FunctionIncMonth(constDate:
TDateTime;
NumberOfMonths:
Integer=1):
IncAMonth(指定的年月日变量加上指定的月份)
ProcedureIncAMonth(VarYear,Month,Day:
Word;
Integer=1);
范例D-20
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Delphi 常用日期与时间函数 常用 日期 时间 函数