当前位置：文江博客话题详情

Delphi Prism 中 EncodeTime 或 DecodeTime 的替换

发布于 2024-12-01 21:08:43 字数 164 浏览 0 评论 0原文

在 Delphi Win32 中，您可以使用 EncodeTime 和 DecodeTime 函数来操作 DateTime 数据或变量。 DELPHI Prism中有类似的功能吗？如果没有，你会怎么做？

例如，您想在 B 增加一天后将两个日期时间变量（A 和 B）加在一起。

谢谢，

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

川水往事 2024-12-08 21:08:43

您必须使用 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);

要解码日期时间，您必须使用属性年、月、日、分和秒。

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

现在要修改日期时间添加天，年或其他范围，您可以使用方法 AddYears、添加月份，AddDays 等等。

//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);

You must use the DateTime type, this class has many constructors which you can use to encode a a datetime.

Example to encode a 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);

To Decode a DateTime you must use the properties Year, Month, Day, Minute and Second.

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

Now to modify a Datetime adding days , years or another range you can use the methods AddYears, AddMonths, AddDays and so on.

//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);

回复收藏 0 原文

~没有更多了~