将字符串转换为日期，并在几天内获得差异

Question

我有以下格式的字符串，例如20110201我希望将其转换为delphi中的日期，然后从今天减去它以获得天数差异。

我该怎么做？ 抱歉我的英文。

Answer 1

您需要的函数是Copy（检索输入字符串的部分），StrToInt（将字符串部分转换为整数），DateUtils.EncodeDate（创建{{1} }}来自整数），TDate（将当前日期检索为Now）和TDate（以获取两个日期之间的差异，以天为单位）。

我认为您可以使用Delphi帮助自行解决其余问题。

Answer 2

使用“复制”提取年，月，日的3个子字符串。然后StrToInt将它们转换为整数，然后使用EncodeDate将3个整数转换为TDateTime。

TDateTime是一个浮点数，计算小数点前的整天，以及当天的时间作为小数点后的小数。

在SysUtils中有一个名为Date：TDateTime的函数，它返回当前日期。

您可以简单地从Date返回的值中减去您从字符串中解析出的TDateTime，以获得它们之间的天数差异。