字串格式引數的日期比較函式

我在nt service裡，使用delphi的comparedate函式出錯，我懷疑這個函式有bug，總是說我的引數多了''，所以沒辦法自己弄了乙個！

function tform2.comparedateex(const a, b: string): integer;
var temp: integer; // 返回的值
alist: tstringlist; // a字串list
blist: tstringlist; // b字串list
aint: integer;
bint: integer;
i: integer;
begin
temp := 0;
try// a字串list
alist := tstringlist.create;
alist.delimiter := '-';
alist.delimitedtext := trim(a);
// b字串list
blist := tstringlist.create;
blist.delimiter := '-';
blist.delimitedtext := trim(b);
for i := 0 to alist.count - 1 do
begin
aint := strtoint(alist[i]);
bint := strtoint(blist[i]);
if aint > bint then
begin
temp := 1;
break;
endelse if aint < bint then
begin
temp := -1;
break;
end;
end;
finally
alist.free;
blist.free;
end;
result := temp;
end;

使用例子

procedure tform2.button4click(sender: tobject);

var temp: integer;
astr, bstr: string;
begin
astr := '2013-07-22';
bstr := '2013-07-23';
temp := self.comparedateex(astr, bstr);
mylog(astr + ' : ' + bstr + ' :' + inttostr(temp));
end;

ios 字串比較 日期比較

字串比較 1 2 3 4 5 6 7 8 字串比較 nsstring string hello nihao nsstring otherstring hello niyeyao if stringcompare otherstring nsorderedascending else 日期比較 1 2...

日期的格式 字串轉日期

var mydate new date 輸出 sat nov 26 2016 16 15 27 gmt 0800 中國標準時間 mydate.tolocaledatestring 可以獲取當前日期 下午4 15 27 mydate.tolocaletimestring 可以獲取當前時間 2016 1...

Python日期字串比較

需要用python的指令碼來快速檢測乙個檔案內的二個時間日期字串的大小，其實實現很簡單,首先一些基礎的日期格式化知識如下 a星期的簡寫。如 星期三為web a星期的全寫。如 星期三為wednesday b月份的簡寫。如4月份為apr b月份的全寫。如4月份為april c 日期時間的字串表示。如 0...