日期和时间

日期和时间

您编写的大多数软件都需要实现某种形式的日期函数来返回当前日期和时间。

日期是日常的重要组成部分，无需考虑轻松与他们合作。

Pascal还提供了强大的日期算术工具，可以轻松操作日期。但是，这些函数的实际名称和工作方式对于不同的编译器是不同的。

获取当前日期＆时间

Pascal的TimeToString函数以冒号（:)分隔的形式为您提供当前时间。以下示例显示如何获取当前时间：

program TimeDemo;
uses sysutils;

begin
   writeln ('Current time : ',TimeToStr(Time));
end.

编译并执行上述代码时，会产生以下结果：

Current time : 18:33:08

日期函数返回TDateTime中的当前日期格式。TDateTime是一个双值，需要一些解码和格式化。以下程序演示了如何在程序中使用它来显示当前日期和减号；

Program DateDemo;
uses sysutils;
var
   YY,MM,DD : Word;

begin
   writeln ('Date : ',Date);
   DeCodeDate (Date,YY,MM,DD);
   writeln (format ('Today is (DD/MM/YY): %d/%d/%d ',[dd,mm,yy]));
end.

编译并执行上述代码时，会产生以下结果：

Date: 4.111300000000000E+004
Today is (DD/MM/YY):23/7/2012
Now函数返回当前日期和时间：

Program DatenTimeDemo;
uses sysutils;
begin
   writeln ('Date and Time at the time of writing : ',DateTimeToStr(Now));
end.

编译并执行上述代码时，会产生以下结果：

Date and Time at the time of writing : 23/7/2012 18:51:

免费Pascal提供了一个堪称简单的内置结构TTimeStamp，其格式为：

type TTimeStamp = record
   Time: Integer;
   Date: Integer;
end;

各种日期和时间函数

Pascal提供以下日期和时间函数：

以下示例说明使用上面的一些功能：

Program DatenTimeDemo;
uses sysutils;
var
year, month, day, hr, min, sec, ms: Word;

begin
   writeln ('Date and Time at the time of writing : ',DateTimeToStr(Now));
   writeln('Today is ',LongDayNames[DayOfWeek(Date)]);
   writeln;
   writeln('Details of Date: ');

   DecodeDate(Date,year,month,day);
   writeln (Format ('Day: %d',[day]));
   writeln (Format ('Month: %d',[month]));
   writeln (Format ('Year: %d',[year]));
   writeln;
   writeln('Details of Time: ');

   DecodeTime(Time,hr, min, sec, ms);
   writeln (format('Hour: %d:',[hr]));
   writeln (format('Minutes: %d:',[min]));
   writeln (format('Seconds: %d:',[sec]));
   writeln (format('Milliseconds: %d:',[hr]));
end.

编译并执行上述代码时，会产生以下结果：

Date and Time at the time of writing : 7/24/2012 8:26:
Today is Tuesday
Details of Date:
Day:24
Month:7
Year: 2012
Details of Time:
Hour: 8
Minutes: 26
Seconds: 21
Milliseconds: 8