RSS订阅 | 匿名投稿
您的位置:网站首页 > 时间 > 正文

Delphi判断不同格式的时间是否相等

作者:admin 来源: 日期:2014/4/18 22:58:47 人气: 标签:

今天测试写了很久的模拟期货交易平台这个软件的时候,发现K线中的数据很多都是走错了的。

原因分析

Delphi调试很麻烦,于是打出log来看看,最终发现服务器传过来的数据的日期格式和本机的时间格式不一样,导致在判断时间是否相等的时候出现了错误。所以需要一个函数来判断不同时间格式的时间是否相等。当然服务器的时间格式是固定不变的,服务器的时间格式是"yyyy-mm-dd",本地时间可以是所有时间格式中的任意一种。

代码实现

//判断是否是日期格式字符串
function IsDateStr(Value: String): Boolean;
var
  Temp: TDateTime;
begin
  Result := TryStrToDate(Value, Temp);
end;

function IsTheSameDate(date1,date2:String):Boolean;
begin
  Result := False;
  if (date1 = date2) then
  begin
    Result := True;
  end else if (IsDateStr(date1)) then
  begin
    if (FormatDateTime('yyyy-mm-dd',StrToDate(date1)) = date2) then
    begin
      Result := True;
    end;
  end else if (IsDateStr(date2)) then
  begin
    if (FormatDateTime('yyyy-mm-dd',StrToDate(date2)) = date1) then
    begin
      Result := True;
    end;
  end;
end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: