-
Notifications
You must be signed in to change notification settings - Fork 1
/
WispTimeTools.pas
72 lines (60 loc) · 1.75 KB
/
WispTimeTools.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
unit WispTimeTools;
interface
uses
SysUtils,
DateUtils,
WispDbConnection,
WispQueryTools,
WispStrTools;
Function GetTimeFromServer(): string;
Function GetDateFromServer(): string;
Function GetTimeStampFromServer(): string;
Function GetNowFromServer() : TDateTime;
Function CxDateToMySqlDate(ParamDateText : string) : string;
Function MySqlDateToDMYString(ParamDateText : string) : string;
implementation
Function GetTimeFromServer(): string;
begin
Result := OpenQuery(Global_Singleton_DbConnection, 'SELECT CURTIME();')
.FirstFieldAsString;
end;
Function GetDateFromServer(): string;
begin
Result := OpenQuery(Global_Singleton_DbConnection, 'SELECT CURDATE();')
.FirstFieldAsString;
end;
Function GetTimeStampFromServer(): string;
begin
Result := OpenQuery(Global_Singleton_DbConnection, 'SELECT NOW();')
.FirstFieldAsString;
end;
Function CxDateToMySqlDate(ParamDateText : string) : string;
Var
TmpStrArray : TArrayOfString;
begin
if ParamDateText = '' then
begin
Result := '';
EXIT;
end;
TmpStrArray := WispStringSplit(ParamDateText, '/');
Result := TmpStrArray[2]+'-'+TmpStrArray[1]+'-'+TmpStrArray[0];
end;
Function MySqlDateToDMYString(ParamDateText : string) : string;
Var
TmpStrArray : TArrayOfString;
begin
TmpStrArray := WispStringSplit(ParamDateText, '-');
Result := TmpStrArray[2]+'/'+TmpStrArray[1]+'/'+TmpStrArray[0];
end;
Function GetNowFromServer() : TDateTime;
Var
D, T : TArrayOfString;
begin
D := WispStringSplit(GetDateFromServer, '/');
T := WispStringSplit(GetTimeFromServer, ':');
Result := EncodeDateTime(StrToInt(D[2]), StrToInt(D[1]),
StrToInt(D[0]), StrToInt(T[0]), StrToInt(T[1]),
StrToInt(T[2]), 0);
end;
end.