Question

Delphi中提取系统时间的函数

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

Answer 1

一般用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的基础上。可以为负。

Answer 2

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

Answer 3

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

Answer 4

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