Changeset 17 for trunk/Packages/CoolWeb/Persistence/USqlDatabase.pas

Timestamp:

Nov 15, 2012, 2:56:05 PM (12 years ago)

Author:

chronos

Message:

• Opraveno: Editace časových údajů.
• Opraveno: Generování ovládacích prvků v okně editace.

File:

• trunk/Packages/CoolWeb/Persistence/USqlDatabase.pas (modified) (3 diffs)

trunk/Packages/CoolWeb/Persistence/USqlDatabase.pas

@@ -91 +91 @@
   function SQLToDateTime(Value: string): TDateTime;
   function SQLToTime(Value: string): TDateTime;
+  function SQLToDate(Value: string): TDateTime;
   function DateTimeToSQL(Value: TDateTime): string;
   function TimeToSQL(Value: TDateTime): string;
@@ -173 +174 @@
 end;
 
+function SQLToDate(Value: string): TDateTime;
+var
+  DateParts: TListString;
+  Date: TDateTime;
+begin
+  try
+    DateParts := TListString.Create;
+    DateParts.Explode(Value, '-', StrToStr);
+    if TryEncodeDate(StrToInt(DateParts[0]), StrToInt(DateParts[1]),
+      StrToInt(DateParts[2]), Date) then
+        Result := Date else Result := 0;
+  finally
+    DateParts.Free;
+  end;
+end;
+
 function DateTimeToSQL(Value: TDateTime): string;
 begin
-  Result := FormatDateTime('yyyy-mm-dd hh.nn.ss', Value);
+  Result := FormatDateTime('yyyy-mm-dd hh:nn:ss', Value);
 end;
 
 function TimeToSQL(Value: TDateTime): string;
 begin
-  Result := FormatDateTime('hh.nn.ss', Value);
+  Result := FormatDateTime('hh:nn:ss', Value);
 end;
 
@@ -191 +208 @@
 var
   TimeParts: TListString;
+  Time: TDateTime;
 begin
   try
     TimeParts := TListString.Create;
     TimeParts.Explode(Value, ':', StrToStr);
-    Result := Result + EncodeTime(StrToInt(TimeParts[0]), StrToInt(TimeParts[1]),
-      StrToInt(TimeParts[2]), 0);
+    if TryEncodeTime(StrToInt(TimeParts[0]), StrToInt(TimeParts[1]),
+      StrToInt(TimeParts[2]), 0, time) then
+        Result := Time else Result := 0;
   finally
     TimeParts.Free;