Date/time string formatting revisionv0.6.40

Added ability to set custom date/time format

1 files changed, 3 insertions, 3 deletions

diff --git a/UCore.pas b/UCore.pas
index 8bc2654..a62495a 100644
--- a/UCore.pas
+++ b/UCore.pas
@@ -334,15 +334,15 @@ begin
                    ColumnData[ConfColumnIDs[j] - 1] := strdup(PChar(s2));
                  end;
               5: begin
-                   s2 := FormatDateTime('ddddd tt', ModifyTime);
+                   s2 := FormatDate(ModifyTime, True, True);
                    ColumnData[ConfColumnIDs[j] - 1] := strdup(PChar(s2));
                  end;
               6: begin
-                   s2 := FormatDateTime('ddddd', ModifyTime);
+                   s2 := FormatDate(ModifyTime, False, True);
                    ColumnData[ConfColumnIDs[j] - 1] := strdup(PChar(s2));
                  end;
               7: begin
-                   s2 := FormatDateTime('tt', ModifyTime);
+                   s2 := FormatDate(ModifyTime, True, False);
                    ColumnData[ConfColumnIDs[j] - 1] := strdup(PChar(s2));
                  end;
               8: begin