delphi - 我将如何测试日期是否在日期范围内(两个字符串)？

Question

我有两个字符串，例如 05.04.2002 和 23.01-2002 - 23.06.2002。

如何确定第一个字符串中的日期是否在第二个字符串中的日期之间？

我一直在想什么

dateString := '05.04.2002';
dateRangeString := '23.01-2002 - 23.06.2002';

date := StrToDate( dateString );
rangeStart := StrToDate( LeftStr(dateRangeString, 10) );
rangeEnd := StrToDate( RightStr(dateRangeString, 10) );

现在我不知道该怎么办!

Answer 1

您可以使用单元System.DateUtils及其函数DateInRange :

var
  dStart, dEnd, d2Test: TDate;
begin
  dStart := StrToDate('25/07/2012');
  dEnd   := StrToDate('29/07/2012');

  d2Test := StrToDate('26/07/2012');

  if DateInRange(d2Test, dStart, dEnd) then
    ShowMessage('In range!');

您还可以检查此函数的第四个参数(AInclusive: Boolean = True)...根据您的需要...