From e46108835fb7d7aa4461f6d3d5002456499df804 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sun, 9 Nov 2008 16:19:28 +0100
Subject: Fix SFV date/time format stamp

---
 UChecksumDruid.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/UChecksumDruid.pas b/UChecksumDruid.pas
index bbe0b73..284060e 100644
--- a/UChecksumDruid.pas
+++ b/UChecksumDruid.pas
@@ -605,7 +605,7 @@ begin
   for i := 0 to FileNames.Count - 1 do begin
     Stat := Engine.GetFileInfoSL(FileNames[i]);
     if Assigned(Stat) then s := s + Format(';  %s %s %s'#13#10, [PadRightStr(IntToStr(Stat^.Size), 11),
-                                    SysUtils.FormatDateTime('hh:nn.ss yyyy-mm-dd', Stat^.ModifyTime), ExtractFileName(FileNames[i])]);
+                                    FormatDate(Stat^.ModifyTime, True, True, 999, 999, 1, '%Y-%m-%d', '%k:%M.%S'), ExtractFileName(FileNames[i])]);
   end;
   s := s + '; \----'#13#10'; '#13#10; 
 
-- 
cgit v1.2.3