Delphi中提取系统时间的函数

答案:3 悬赏:0 手机版

解决时间 2021-01-27 11:14

提问者网友：浩歌待明月
2021-01-26 23:35

Delphi中提取系统时间的函数是什么？就是类似于Pascal 中的Gettime(). 看到有人说用DateUtil单元的hourOF, MinuteOF等，但是Delphi提示找不到DateUtil单元。
如果的确是用DateUtil单元，是否可以提供下载地址？

最佳答案

五星知识达人网友：毛毛
2021-01-27 00:01

1、函数描述：在Delphi中提取系统时间的函数为Time()函数。
2、函数定义：time() 函数返回当前系统时间的 Unix 时间戳。
3、函数语法：time(void)。

4、函数举例：
输入代码：
<?php
$nextWeek = time() + (7 * 24 * 60 * 60); // 7 days; 24 hours; 60 mins; 60secs
echo 'Now: '. date('Y-m-d') ."\n";
echo 'Next Week: '. date('Y-m-d', $nextWeek) ."\n";
?>

输出结果：
Now:2005-03-30
Next Week: 2005-04-07

全部回答

1楼网友：神的生死簿
2021-01-27 02:21

一般用Now函数 procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := TimeToStr(Now); //时间 Label2.Caption := DateToStr(Now); //日期 Label3.Caption := DateTimeToStr(Now); //日期+时间 end; 其他一些有用的时间函数 use DateUtils;（此单元里有许多关于时间的函数）。我今天就只看了这么多了，还有许多读自己去看吧。里面有太多的关于时间的函数了，如：输入一个时间，可以提取date或time部分，此月有多少天，比较两个时间的’大小’,…..自己看帮助。 function CompareDate(const A, B: TDateTime): TValueRelationship;比较A，B日期哪个时间先发生？还是同时发生？ function CompareDateTime(const A, B: TDateTime): TValueRelationship function DaysBetween(const ANow, AThen: TDateTime): Integer;两时间相隔多少天？ function DaysInAMonth(const AYear, AMonth: Word): Word;某年某月有多少天 function DaysInAYear(const AYear: Word): Word;某年有多少天。 function DaysInMonth(const AValue: TDateTime): Word;某月有多少天 procedure DecodeDateMonthWeek(const AValue: TDateTime; out AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word);对应out参数：哪年，哪月，此月的第几周，是周几。 function EncodeDateDay(const AYear, ADayOfYear: Word): TDateTime;输入某年，此年第几天,out得到此天日期。 DayOfWeek(TDateTime)某个时间是星期几？ DayOfTheYear(TDateTime)一年的第几天。 function DayOfTheMonth(const AValue: TDateTime): Word;第几天of the Month. function DateOf(const AValue: TDateTime): TDateTime;提取时间部分这个方法可以完成你的要求。用法可见帮助示例。 procedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word); (注它必须引用DateUtils单元); 它把时间的各个部分都分离出来了。与之对应的函数为： function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word):TDateTime; function IncMinute (const AValue: TDateTime; const ANumberOfMinute: Int64 = 1): TDateTime; 例：IncMinute(now,N);增加N分钟在NOW的基础上。可以为负。

2楼网友：玩家
2021-01-27 01:15

procedure TForm1.Button1Click(Sender: TObject); Var t:TDateTime; begin t:=Now(); MessageDlg(DateTimeToStr(t),mtInformation,[mbok],0); end;

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息