Delphi-日期时间函数

2017-12-14 20:01:45来源:CSDN作者:qq_32869085人点击

分享
(1)日期时间函数日期时间函数的格式为:function now: TDateTime;说明:返回当前时间。例如,edit1.text:=datatimetostr(now)语句会显示显示“2006-8-18 10:38:54”的时间。(2)日期函数格式function Data :TDatetime;说明:返回当前的日期。例如,edit1.text:=datatimetostr(Data)或者edit1.text:=datetostr(Data)语句会显示类似“2006-8-18”的日期(3)时间函数格式function time:TDatetime;function Gettime:TDatetime;说明:返回当前的时间。例如,edit1.text:=timetostr(time)或者edit1.text:=timetostr(gettime)语句会显示类似“10:46:55”的日期(4)星期函数格式function DayofWeek(Date:TDateTime):Integer;说明:返回星期几,周7返回1,周六返回7,以此类推。例如:edit1.text:=inttostr(dayofweek(date))(5)日期与时间格式的函数function FormatDateTime(const format:string;DateTime:TDateTime):string;说明:FormatDateTime将指定的日期时间值安装format指定的格式输出。
program DateTime;{$APPTYPE CONSOLE}uses  SysUtils;begin  { TODO -oUser -cConsole Main : Insert code here }  //返回当前日期时间  Writeln('现在时间:',datetimetostr(Now));  //返回当前日期  Writeln('当前日期:',dateTimetostr(Date));  Writeln('当前日期:',datetostr(Date));  //返回当前时间  Writeln('当前时间:',timetostr(Time));  Writeln('当前时间:',timetostr(GetTime));  //返回星期几  Writeln('今天是本周的第',inttostr(DayOfWeek(Date)),'天');  //日期与时间格式的函数  Writeln('返回当前时间日期:',formatdatetime('c',Now));  Writeln('今天:',formatdatetime('ddd',Now));  Writeln('本月:',formatdatetime('mmm',Date));  Writeln('今年:',formatdatetime('yyyy',Date));  Readln;end.


最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台