在Delphi Prism中替换EncodeTime或DecodeTime

时间:2011-08-29 19:58:03

标签: .net function datetime delphi-prism

在Delphi Win32中,您具有EncodeTime和DecodeTime函数来操作DateTime数据或变量。在DELPHI Prism中是否有类似这些功能?如果没有,你会怎么做?

例如,您希望在将B增加一天后,将两个日期时间变量(A和B)一起添加。

谢谢,

1 个答案:

答案 0 :(得分:2)

您必须使用DateTime类型,此类有许多构造函数可用于编码日期时间。

编码DateTime的示例

Var
  ADateTime : DateTime;
begin
  //to enconde 29 August 2011
  ADateTime:=new DateTime(2011,8,29);

  //to enconde 29 August 2011 , 23:30 
  ADateTime:=new DateTime(2011,8,29,23,30,0);

要解码DateTime,您必须使用年,月,日,分和秒属性。

  var AYear : Integer:= ADateTime.Year;
  var AMonth : Integer:= ADateTime.Month;
  var ADay : Integer:= ADateTime.Day;

现在要修改添加天,年或其他范围的日期时间,您可以使用方法AddYearsAddMonthsAddDays等。

//add a year to the date stored in the ADateTime variable
Var NewDateTime: DateTime:=  ADateTime.AddYears(1);

//substract a month to the date stored in the ADateTime variable
Var NewDateTime: DateTime:=  ADateTime.AddMonths(-1);