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

Question

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

我怎样才能做到这一点？对不起我的英语不好.

Answer 1

你需要的函数是Copy(检索输入字符串的一部分),StrToInt (将字符串部分转换为整数),DateUtils.EncodeDate(TDate从整数中创建一个),Now(以检索当前日期为TDate)和DateUtils.DaysBetween(以获取两者之间的差异)以天为单位的日期).

我认为您可以使用Delphi帮助自行解决其余功能.

Answer 2

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

TDateTime是一个浮点数,计算小数点前的整天和当天的时间作为小数点后的小数.

在SysUtils中有一个名为Date:TDateTime的函数,它返回当前日期.

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