【摘自网上】Delphi中DateTime的用法

转载 2011年01月17日 15:16:00

 

在编写应用程序时,我们需要经常与时间和日期打交道,因此经常需要一些对时间的控制技术,在Delphi中,提供了一整套对日期和时间的操作函数,在此,我将详细介绍一下在Delphi中的时间操作技术,希望能对大家有所帮助。

Delphi中的用于表示时间的类型: 

首先,看一看在delphi中用于描述时间的几种数据结构,对时间的操作,其实就是对这些结构的操作。 

TDateTime类型: 

Delphi中最常用的表示日期时间的数据类型TDateTime类型,和普通的整形数一样,你可以给日期定义一个日期型变量以便在程序中进行操作。TdateTime类型实质上是一个Double型的数,在Delphi中是这样定义TdateTime类型: type  TDateTime = type Double ,具体的算法是用Double数的整数部分表示日期,以1989年12月30日为基准点,以天为单位进行加减,如数字1表示1900年1月1日,数字-1表示1989年12月29日。而小数部分则用来表示时间,其值为欲表示的时间与一整天总时间的比值,如早上6点就是6/24=0.25,而早上6:15就是(6*60+15)/(24*60)=0.2604166666666666666666666666667,下面,给出几个例子说明TDateTime类型与Double类型的交互关系 

0       12/30/1899 00:00:00 

2.75    1/1/1900 18:00:00 

-1.25    12/29/1899 6:00:00 

35065    1/1/1996 00:00:00 

相信大家一定能自己理解TdateTime与Double之间的转换方法,因此,从根本上对TDateTime的操作与Double完全一样。 

 

Note(by Andy):

可以用Trunc函数截取TDateTime的整数部分作为日期,用Frac函数截取小数部分作为时间。

 

 

TTimeStamp 类型: 

这是一个用来描述日期与时间的一个结构类型,在Delphi中是这样定义的: 

type 

  TTimeStamp = record 

    Time: Integer;      {从午夜0点开始到指定时间的毫秒数 } 

    Date: Integer;      {以本日为基准到指点日期的天数} 

  end; 

和TDateTime相比,可更直观表示高精度的时间,一般用于毫秒级的运算以及用于表示较长的时间。 

 

PsystemTime 类型: 

一个用于WinApi中对时间操作的指针型结构。他的定义为: 

type 

PSystemTime = ^TSystemTime; 

TSystemTime = record 

  wYear: Word; 

  wMonth: Word; 

  wDayOfWeek: Word; 

  wDay: Word; 

  wHour: Word; 

  wMinute: Word; 

  wSecond: Word; 

  wMilliseconds: Word; 

end; 

这个结构多用于调用WinApi操作时使用。 

在了解了各种时间类型的本质后,相信大家都有一套操作这些类型的时间的想法,不过在Delphi中还提供了一整套用于操作时间的过程函数,这些过程和函数都定义在SysUnit这个单元中,现在就向大家介绍Delphi中相关函数: 

 

用于时间操作的函数 

Date函数: 

定义:Date: TDateTime; 

作用:返回当前的日期 

范例:CurrentDate := Date; 

 

DayOfWeek函数: 

定义:function DayOfWeek(Date: TDateTime): Integer; 

作用:得到指定日期的星期值,返回1~7,代表周日到周六。 

 

IncMouth函数: 

定义:function IncMonth(const Date: TDateTime; NumberOfMonths: Integer): TDateTime; 

作用:求给定的日期Data在NumberOfMonths个月后的日期。 

范例:Date1 := IncMonth(date,10); 

如果今天是2002-5-3,则Date1就是2003-3-3 

 

IsLeapYear函数: 

定义:function IsLeapYear(Year: Word): Boolean; 

作用:判断指定的年份是否是闰年; 

范例:if isLeapYear(2000) then ShowMessage(‘该年是闰年'); 

 

Now函数: 

定义:function Now: TDateTime; 

作用:用于取得当前的日期时间 

范例:CurrentDateTime := Now; 

 

ReplaceDate 过程 

定义:procedure ReplaceDate(var DateTime: TDateTime; const NewDate: TDateTime); 

作用:使用参数Newdate日期部分替换参数DateTime的日期部分,但不改变时间部分。 

 

ReplaceDate 过程 

定义:procedure ReplaceTime(var DateTime: TDateTime; const NewTime: TDateTime); 

作用:使用参数Newdate时间部分替换参数DateTime的时间部分,但不改变日期部分。 

如果上述这两个过程一起用,就相当于赋值了。 

 

Time函数: 

定义:function Time: TDateTime; 

作用:返回当前的时间 

范例:CurrentTime := Time; 

 

能提高您操作时间技术方面的能力,同时也为您在阅读相关的联机帮助时提供一些方便。 

 

各种时间类型之间的转换函数 

DateTimeToFileDate函数: 

定义:DateTimeToFileDate(DateTime: TDateTime): Integer; 

作用: 将一个TDateTime类型的时间转化为Dos环境中的时间,Dos环境下对时间的访问方法和VCL中的TdateTime类型不一样,在进行文件操作时,为了保持时间的一致性,需要使用DateTimeToFileDate函数进行转化,返回的Integer的值就是Dos下的用于描述时间的值。 

 

DateTimeToSystemTime 过程: 

定义:procedure DateTimeToSystemTime(DateTime: TDateTime; var SystemTime: TSystemTime); 

作用:将一个TDateTime类型的时间转换为Win API函数所使用的TSystemTime类型,在使用WinApi函数操纵时间时用到。 

 

SystemTimeToDateTime 函数: 

定义:function SystemTimeToDateTime(const SystemTime: TSystemTime): TDateTime; 

作用:将一个在WinApi函数中得到的TSysTemTime类型的数转换为TDateTime类型。 

 

DateTimeToTimeStamp 函数: 

TimeStampToDateTime 函数: 

定义:DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp; 

      function TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime; 

作用:用于在TDataTime类型与TTimeStamp之间进行互相转换。TDataTime 用一个double描绘一个时间,而TTimeStamp则是采用两个整形数分别描述时间。两种类型的区别可参考文章开始处的数据类型描述部分。 

 

EncodeDate 函数: 

定义:function EncodeDate(Year, Month, Day: Word): TDateTime; 

作用: 输入年(year),月(month),日(day)的值,将该日期返回为TDateTime类型,年的范围为1-9999,月份的范围为1-12,日期的范围视当月的情况而定,如果输入的值超出范围,则将产生一个EConvertError错误。 

 

DecodeDate 过程: 

定义:procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word); 

作用:输入一个TDateTime类型的日期,将其转为年(Year),月(Month),日(Day)的值。如果输入值为0或小于0,则年月日均为0, 

 

EncodeTime 函数: 

定义:EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime; 

作用:输入小时(Hour),分(min),秒(Sec),微秒(MSec)的值,返回一个TDateTime类型的时间,该值为一个介于0至1之间的小数。Hour的取值范围为0-23,Min的取值范围为0-59,Sec的取值范围为0-59,MSec的取值范围为0-999,如果输入值超出范围,则产生一个EConvertError 错误。 

 

DecodeTime 过程: 

定义:procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word); 

作用:输入一个时间,将其转换为小时(Hour),分(min),秒(Sec),微秒(MSec)的值。 

 

TDateTime类型与字符串型转换函数: 

DateTimeToStr 函数: 

DateToStr 函数 

TimeToStr函数 

定义:function DateTimeToStr(DateTime: TDateTime): string; 

      function TimeToStr(Time: TDateTime): string; 

function TimeToStr(Time: TDateTime): string; 

作用:将一个TDateTime类型的数转换成字符串,DateTimeToStr转换日期和时间,DateToStr只转换日期,TimeToStr只转换时间。转换后的输出效果为YYYY-M-D H:M:S 

 

StrToDateTime函数 

StrToDate函数 

StrToTime函数 

定义:function StrToDateTime(const S: string): TDateTime; 

      function StrToDate(const S: string): TDateTime; 

      function StrToTime(const S: string): TDateTime; 

作用:将带有日期时间格式的字符串转化成TDateTime,其中S必须是一个有效的字符串,如 

      YY-MM-DD HH:MM:SS格式,否则就会触发EConvertError事件,提示错误信息。 

      时间部分的字符串必须是由2~3个的数值字串构成,并且采用在Windows区域设置中设置的分隔字符进行分隔,其格式要求符合在Windows区域设定中的设定,其中HH,MM(小时,分钟)必须添加,SS(秒)可选,也可以在后面加入 Am和Pm区分上下午,这时候系统将认为采用12小时表示法,否则认为采用24小时表示法。 

      日期部分的格式要求符合Windows区域设置中的短日期格式,也是由2~3个的数值字串构成,如果在字符串中只有2个数,则认为是指定了月份和日期,年份采用当前年份, 

      如果在区域设置中采用两位年份的表示方法,则系统将会采用以下方法处理: 

当前年份 起始年份 基准值 输入年份03 输入年份50 输入年份68 

1998  0 1900 1903 1950 1968 

2002  0 2000 2003 2050 2068 

1998  50 1948 2003 1950 1968 

2000 50 1950 2003 1950 1968 

2002  50 1952 2003 2050 1968 

2020  50 1970 2003 2050 2068 

2020 10 2010 2103 2050 2068 

      首先在区域设置中取得两位年份的起始年份,如在区域设置中设两位年份范围为1932-2031年,则起始年份为32年,如果这个起始年份为0,则认为两位年份表示的都是本世纪,如果其实年份大于0 ,则采用当前年份减去起始年份的值,这个值称为基准值,大于等于这个值则认为事本世纪,否则认为是下世纪,下面给出几个例子说明: 

 

DateTimeToString 过程: 

FormatDateTime 函数: 

定义:procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime); 

       function FormatDateTime(const Format: string; DateTime: TDateTime): string; 

作用:通过定义Format字串中的格式得到要输出时间字符串,例如要输出"今天是2002年5月5日,星期五"就可以用这两种方法,这两个方法的作用相同,只是一个是通过共享变量取得输出字符串,值在Result中,一个是通过返回值取得输出字符串,DateTime参数是希望输出的日期值,Format由格式标志与附加字符串组合而成。附加字串用""圈起,就像C中的Printf函数.如"今天是2002年5月5日,星期五"的Format值就是 ‘"今天是"yyyy"年"mm"月"dd"日," dddd',yyyy,mm,dd,dddd都是格式标识,各种格式标识的解释如下: 

       d      :用一位或两位整数显示日子(1-31) 

       dd     :用两位整数显示日子,不足两位的用0补足(01-31) 

       ddd    :按缩略方式显示当前的星期号,如果Windows是英文版,则显示为Mon-Sun,如果是中文版,则显示同dddd。 

       dddd   :按完整方式显示当前的星期号,如Windows是英文版,则显示Monday-SumDay,如果是中文版,则显示星期一~星期日 

       ddddd  :按区域设置中的短日期格式输出。 

       dddddd :按区域设置中的长日期格式输出。 

       m      :用一位或两位整数显示月份(1-12) 

       mm     :用两位整数显示月份,不足两位的用0补足(01-12) 

       mmm    :使用缩略方式显示月份名称,英文版显示为Jan-Dec,中文版同mmmm 

       mmmm   :使用完整方式显示月份名称,英文版显示为January-December,中文版为一月~十二月 

       yy     :按两位整数方式显示年份(00-99) 

       yyyy   :按四位整数方式显示年份(0000-9999) 

       h      :用一位或两位整数显示小时(0-23)       

hh     :用两位整数显示小时,不足两位的用0补足(00-23) 

       n      :用一位或两位整数显示分钟(0-60)       

       nn     :用两位整数显示分钟,不足两位的用0补足(00-60) 

       s      :用一位或两位整数显示秒数(0-60) 

       ss     :用两位整数显示秒数,不足两位的用0补足(00-60) 

       z      :用一位至两位整数显示毫秒数(0-999) 

       zzz    :用三位整数显示毫秒数,不足三位的用0补足(000-999) 

       tt     :按照区域设置中的格式显示日期 

       am/pm  :用于12小时制的显示,带有AM的则表示从0点~12点,pm代表从12点~0点。 

 

与时间相关的变量: 

Delphi封装了区域设置的各种信息,并以此定义了一系列的变量,下面介绍与时间相关的部分变量: 

DateSeparator :Char 

日期分隔符,用于分隔年月日 

TimeSeparator :Char 

时间分隔符,用于分隔小时,分钟,秒 

ShortDateFormat:String 

区域设置中短日期格式的定义。 

LongDateFormat :String 

区域设置中长日期格式的定义。 

ShortTimeFormat:String 

区域设置中短时间格式的定义。 

LongTimeFormat :String 

区域设置中长时间格式的定义。 

TimeAMString :String 

用来表示上午的字符串 

TimePMString :String 

用来表示下午的字符串 

ShortMonthNames:array[1..12] of String; 

用于缩略表示月份名称的数组,就是在使用FormatDateTime时显示的mmm标识的字符串 

LongMonthNames:array[1..12] of String; 

用于完整表示月份名称的数组,就是在使用FormatDateTime时显示的mmmm标识的字符串 

ShortDayNames :array[1..7] of String; 

用于缩略表示星期名称的数组,就是在使用FormatDateTime时显示的ddd标识的字符串 

LongDayNames :array[1..7] of String; 

用于完整表示星期名称的数组,就是在使用FormatDateTime时显示的ddd标识的字符串 

TwoDigitYearCenturyWindow:Word = 50; 

在使用两位年份时的起始年份。 

 

好了,delphi中关于时间操作的部分基本讲完了,在Delphi6中还提供了一些新的操作函数,不过都比较简单,相信大家看帮助都能看懂,至于对于时间的一些操作技巧,相信看完了本文大家都能有一些,这里就不详细描述,同一种功能本来就应该有多种的实现方法。本文在写作中主要参考了delphi5的联机帮助,本文介绍的大部分函数在联机帮助中都有范例,这里就不一一列举,可参考联机帮助,希望本文能提高您操作时间技术方面的能力,同时也为您在阅读相关的联机帮助时提供一些方便。

 

Note(by Andy):

1.DateTime in C# convert to TDateTime in Delphi

It seems that they can be converted directly. Now I can't find anything incorrect.

In C#, there is a function named "ToOADate" that can convert DateTime to OLE Date(double).

 

2.StrToDateTime会按照当前系统的时间格式转换,需要注意。可另外编写函数转换成特定格式。

 

//*********************************************************************

// Converts time strings in a fixed format HH:MM AM/PM to TTime values

//*********************************************************************

function TimeStringToDateTime(STime: string): TDateTime;

var

   Hour, Minute: word;

begin

   Result := 0;

   If STime <> '' then

   begin

      Hour := StrToInt(Copy(STime, 1, 2));

      Minute := StrToInt(Copy(STime, 4, 2));

      try

         If UpperCase(STime[7]) = 'A' then

            If Hour = 12 then

               Hour := 0;

         If UpperCase(STime[7]) = 'P' then

            If Hour < 12 then

               Hour := Hour + 12;

      except

      end;

      Result := EncodeTime(Hour, Minute, 0, 0);

   end;

end;

 

//*********************************************************************

// Converts date strings in a fixed format

// MM/DD/YYY HH:MM AM/PM to TDateTime values

//*********************************************************************

function DateStringToDateTime(SDateTime: string): TDateTime;

var

   Month, Day, Year: word;

   TimeStr: string;

   TmpTime: TDateTime;

begin

   Result := 0;

   If SDateTime <> '' then

   begin

      Month := StrToInt(Copy(SDateTime, 1, 2));

      Day := StrToInt(Copy(SDateTime, 4, 2));

      Year := StrToInt(Copy(SDateTime, 7, 4));

 

      TimeStr := Trim(Copy(SDateTime, 12, Length(SDateTime)));

      If TimeStr = ''  then

         TmpTime := 0

      else

         TmpTime := TimeStringToDateTime(TimeStr);

 

      Result := EncodeDate(Year, Month, Day) + Frac(TmpTime);

   end;

end;

 

 

 

DELPHI获得系统当前时间日期和格式化时间

获得系统当前时间     本例中主要应用了FormatDateTime函数,此函数主要用于将日期时间格式化为指定的字符串。利用该函数可以输出许多形式的时间格式。     程序运行结果如图6...

delphi 日期加减(及日期函数)

Delphi里有现成的函数可以实现日期加减,是在DateUtils单元里的。 function IncYear(const AValue: TDateTime; const ANumberOfYe...

DELPHI 字符串与日期格式互转

procedure TForm1.Button1Click(Sender: TObject); var D:TDateTime; s:string; begin D:=VarTo...
  • xxkku521
  • xxkku521
  • 2014年05月14日 17:20
  • 11283

在Delphi中FormatDateTime函数的用法

在Delphi中FormatDateTime函数的用法 function FormatDateTime(const Format: string; DateTime: TDateTime): st...
  • YYG_MQC
  • YYG_MQC
  • 2011年12月28日 08:51
  • 4485

DateTimeToString取得自己想要的格式的日期

用DateTimeToString取得自己想要的格式的日期。如:procedure TForm1.btn1Click(Sender: TObject);var timestring : string...

DELPHI获得系统当前时间日期和格式化时间

获得系统当前时间     本例中主要应用了FormatDateTime函数,此函数主要用于将日期时间格式化为指定的字符串。利用该函数可以输出许多形式的时间格式。     程序运行结果如图6...

Delphi编程中Http协议应用

Http协议的通信遵循一定的约定.例如,请求一个文件的时候先发送Get请求,然后服务器会返回请求的数据.如果需要进行断点传输,那么先发送'HEAD /'请求,其中返回的'Content-Lengt...

【摘自网上】Delphi TClientDataSet用法

TClientDataSet控件继承自TDataSet,其数据存储文件格式扩展名为 .cds,是基于文件型数据存储和操作的控件。该控件封装了对数据进行操作处理的接口和功能,而本身并不依赖上述几种数据库...

【摘自网上】Delphi 7.0常用函数速查手册

Delphi 7.0常用函数速查手册 函数由一句或多句代码组成,可以实现某个特定的功能。使用函数可以使代码更加易读、易懂,加快编程速度及减少重复代码。过程与函数类似,过程与函数最重要的区别在于,过程没...

【摘自网上】Delphi TppReport

在TppBDEPipeline的DataSource中关联数据源TppReport中的DataPipeline中设置TppBDEPipelineTppViewer的Report中设置TppReport...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:【摘自网上】Delphi中DateTime的用法
举报原因:
原因补充:

(最多只允许输入30个字)