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

Cleanup

This commit is contained in:
mysticbbs 2012-08-08 13:52:19 -04:00
parent 0732e89c5f
commit 5ca0cb3b15
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mdl/m_datetime.pas
View File

@ -72,7 +72,9 @@ Begin
Dec (Year);
Inc (Month, 12);
End;
Dec (Month, 3);
Century := Year DIV 100;
XYear := Year MOD 100;
Century := (Century * JulianDay1) SHR 2;
@ -277,9 +279,11 @@ Begin
If Twelve Then Begin
If DT.Hour > 11 Then Begin
If DT.Hour = 12 Then Inc(DT.Hour, 12);
Result := strZero(DT.Hour - 12) + ':' + strZero(DT.Min) + 'p'
End Else Begin
If DT.Hour = 0 Then Inc(DT.Hour, 12);
Result := strZero(DT.Hour) + ':' + strZero(DT.Min) + 'a';
End;
End Else