Changeset 15 for trunk/Packages

Timestamp:

Nov 15, 2012, 12:34:33 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Doplněno zobrazení formuláře pro úpravu všech tabulek docházky.

File:

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

trunk/Packages/CoolWeb/Persistence/USqlDatabase.pas

@@ -90 +90 @@
   function MySQLStrToFloat(S: string): Real;
   function SQLToDateTime(Value: string): TDateTime;
+  function SQLToTime(Value: string): TDateTime;
   function DateTimeToSQL(Value: TDateTime): string;
 
@@ -175 +176 @@
 end;
 
+function SQLToTime(Value: string): TDateTime;
+var
+  TimeParts: TListString;
+begin
+  try
+    TimeParts := TListString.Create;
+    TimeParts.Explode(Value, ':', StrToStr);
+    Result := Result + EncodeTime(StrToInt(TimeParts[0]), StrToInt(TimeParts[1]),
+      StrToInt(TimeParts[2]), 0);
+  finally
+    TimeParts.Free;
+  end;
+end;
+
 { TSqlDatabase }