diff options
| author | Alexey Kulakov <panda75@bk.ru> | 2014-12-15 18:55:29 +0000 |
|---|---|---|
| committer | Alexey Kulakov <panda75@bk.ru> | 2014-12-15 18:55:29 +0000 |
| commit | 5ca0f5cdf6f42f4622da68d798af5646a001fef9 (patch) | |
| tree | f492f193b8c0f758ecbbfdc12bd35e34b355676a /plugins/Utils.pas/datetime.pas | |
| parent | 54ecbb3cf0ddb2576292d0b1714f56cd765ea292 (diff) | |
pascal units: [de]capitalization
Actman 30: small-small fix
git-svn-id: http://svn.miranda-ng.org/main/trunk@11439 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/Utils.pas/datetime.pas')
| -rw-r--r-- | plugins/Utils.pas/datetime.pas | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/plugins/Utils.pas/datetime.pas b/plugins/Utils.pas/datetime.pas index 4b13d7b3f4..e2fa2e4809 100644 --- a/plugins/Utils.pas/datetime.pas +++ b/plugins/Utils.pas/datetime.pas @@ -1,4 +1,4 @@ -unit DateTime;
+unit datetime;
interface
@@ -26,7 +26,7 @@ procedure UnixTimeToFileTime(ts:int_ptr; var pft:TFILETIME); function FileTimeToUnixTime(const pft: TFILETIME):int_ptr;
function TimeStampToLocalTimeStamp(ts:int_ptr):int_ptr;
function TimestampToDateTime(ts:int_ptr):TDateTime;
-function TimestampToSystemTime(Time:DWord; var ST:TSystemTime):PSystemTime;
+function TimestampToSystemTime(Time:DWord; var st:TSystemTime):PSystemTime;
function DateTimeToStr(Time:Dword; Format:pWideChar=nil):pWideChar;
function DateToStr (Time:Dword; Format:pWideChar=nil):pWideChar;
@@ -134,30 +134,30 @@ begin Result := UnixDateDelta + TimeStampToLocalTimeStamp(ts) / SecondsPerDay;
end;
-function TimestampToSystemTime(Time:DWord; var ST:TSystemTime):PSystemTime;
+function TimestampToSystemTime(Time:DWord; var st:TSystemTime):PSystemTime;
var
aft,lft:TFILETIME;
begin
UnixTimeToFileTime(Time,aft);
FileTimeToLocalFileTime(aft, lft);
- FileTimeToSystemTime(lft,ST);
- result:=@ST;
+ FileTimeToSystemTime(lft,st);
+ result:=@st;
end;
function DateTimeToStr(Time:Dword; Format:pWideChar=nil):pWideChar;
var
buf:array [0..300] of WideChar;
- ST: TSystemTime;
+ st: TSystemTime;
pc:pWideChar;
begin
- TimestampToSystemTime(Time,ST);
- GetDateFormatW(LOCALE_USER_DEFAULT,0,@ST,Format,@buf,300);
+ TimestampToSystemTime(Time,st);
+ GetDateFormatW(LOCALE_USER_DEFAULT,0,@st,Format,@buf,300);
if Format<>nil then
- GetTimeFormatW(LOCALE_USER_DEFAULT,0,@ST,@buf,@buf,300)
+ GetTimeFormatW(LOCALE_USER_DEFAULT,0,@st,@buf,@buf,300)
else
begin
pc:=StrEndW(@buf); pc^:=' '; inc(pc);
- GetTimeFormatW(LOCALE_USER_DEFAULT,0,@ST,nil,pc,300-(pc-pWideChar(@buf)))
+ GetTimeFormatW(LOCALE_USER_DEFAULT,0,@st,nil,pc,300-(pc-pWideChar(@buf)))
end;
StrDupW(result,buf);
end;
@@ -165,20 +165,20 @@ end; function DateToStr(Time:Dword; Format:pWideChar=nil):pWideChar;
var
buf:array [0..300] of WideChar;
- ST: TSystemTime;
+ st: TSystemTime;
begin
- TimestampToSystemTime(Time,ST);
- GetDateFormatW(LOCALE_USER_DEFAULT,0,@ST,Format,@buf,300);
+ TimestampToSystemTime(Time,st);
+ GetDateFormatW(LOCALE_USER_DEFAULT,0,@st,Format,@buf,300);
StrDupW(result,buf);
end;
function TimeToStr(Time:Dword; Format:pWideChar=nil):pWideChar;
var
buf:array [0..300] of WideChar;
- ST: TSystemTime;
+ st: TSystemTime;
begin
- TimestampToSystemTime(Time,ST);
- GetTimeFormatW(LOCALE_USER_DEFAULT,0,@ST,Format,@buf,300);
+ TimestampToSystemTime(Time,st);
+ GetTimeFormatW(LOCALE_USER_DEFAULT,0,@st,Format,@buf,300);
StrDupW(result,buf);
end;
|