eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Format date function

This commit is contained in:
mysticbbs 2013-05-25 13:56:11 -04:00
parent f0b4d7dd1c
commit 80b7d40a77
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
mdl/m_datetime.pas
View File

@ -30,6 +30,7 @@ Function TimeDos2Str (Date: LongInt; Mode: Byte) : String;
Function DayOfWeek (Date: LongInt) : Byte; Function DayOfWeek (Date: LongInt) : Byte;
Function DaysAgo (Date: LongInt; dType: Byte) : LongInt; Function DaysAgo (Date: LongInt; dType: Byte) : LongInt;
Function TimeSecToStr (Secs: LongInt) : String; Function TimeSecToStr (Secs: LongInt) : String;
Function FormatDate (DT: DateTime; Mask: String) : String;
Implementation Implementation
@ -355,4 +356,20 @@ Begin
Result := (Temp - Secs) >= 0; Result := (Temp - Secs) >= 0;
End; End;
Function FormatDate (DT: DateTime; Mask: String) : String;
Var
YearStr : String[4];
Begin
Result := Mask;
YearStr := strI2S(DT.Year);
Result := strReplace(Result, 'YYYY', YearStr);
Result := strReplace(Result, 'YY', Copy(YearStr, 3, 2));
Result := strReplace(Result, 'MM', strZero(DT.Month)) +
strReplace(Result, 'DD', strZero(DT.Day)) +
strReplace(Result, 'HH', strZero(DT.Hour)) +
strReplace(Result, 'II', strZero(DT.Min)) +
strReplace(Result, 'SS', strZero(DT.Sec)) +
strReplace(Result, 'NNN', MonthString[DT.Month]);
End;
End. End.