Date comparison function of string format parameters

Date comparison function of string format parameters

I encountered an error using the comparedate function of Delphi in the NT Service. I suspect there is a bug in this function. I always say that I have more parameters than '', so I cannot get one by myself!

 

[Delphi]View plaincopy

1. {
2. // Function: Compare date
3. // Parameters:
4. // A: Date of comparison, in the format)
5. // B: Date to be compared. Format)
6. // Note: the date format must be "yyyy-mm-dd" and "-",
7. // Two date strings must have the same length of year, month, and day; otherwise, the comparison result is incorrect.
8. }
9. Function tform2.comparedateex (const A, B: string): integer;
10. VaR
11. Temp: integer; // The returned value.
12. Alist: tstringlist; // a string list
13. Blist: tstringlist; // B string list
14. Aint: integer;
15. Bint: integer;
16. I: integer;
17. Begin
19. Temp: = 0;
21. Try
22. // A string list
23. Alist: = tstringlist. Create;
24. Alist. delimiter: = '-';
25. Alist. delimitedtext: = trim ();
27. // B string list
28. Blist: = tstringlist. Create;
29. Blist. delimiter: = '-';
30. Blist. delimitedtext: = trim (B );
32. For I: = 0 to alist. Count-1 do
33. Begin
34. Aint: = strtoint (alist [I]);
35. Bint: = strtoint (blist [I]);
37. If aint> bint then
38. Begin
39. Temp: = 1;
40. Break;
41. End
42. Else if aint <bint then
43. Begin
44. Temp: =-1;
45. Break;
46. End;
47. End;
49. Finally
50. Alist. Free;
51. Blist. Free;
52. End;
54. Result: = temp;
55. End;

Example

 

 

[Delphi]View plaincopy

1. Procedure tform2.button4click (Sender: tobject );
2. VaR
3. Temp: integer;
4. Astr, BSTR: string;
5. Begin
6. Astr: = '2017-07-22 ';
7. BSTR: = '2017-07-23 ';
8. Temp: = self. comparedateex (astr, BSTR );
9. Mylog (astr + ':' + BSTR + ':' + inttostr (temp ));
10. End;
    

 

Refer:

Http://blog.csdn.net/sunylat/article/details/9421481