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

DaysAgo function change

This commit is contained in:
mysticbbs 2012-09-25 19:21:12 -04:00
parent ae33281f2f
commit 6376151631
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
mdl/m_datetime.pas
View File

@ -20,7 +20,7 @@ Procedure DateJ2G (Julian: LongInt; Var Year, Month, Day: SmallInt);
Function DateValid (Str: String) : Boolean; Function DateValid (Str: String) : Boolean;
Function TimeDos2Str (Date: LongInt; Twelve: Boolean) : String; Function TimeDos2Str (Date: LongInt; Twelve: Boolean) : String;
Function DayOfWeek (Date: LongInt) : Byte; Function DayOfWeek (Date: LongInt) : Byte;
Function DaysAgo (Date: LongInt) : LongInt; Function DaysAgo (Date: LongInt; dType: Byte) : LongInt;
Function TimeSecToStr (Secs: LongInt) : String; Function TimeSecToStr (Secs: LongInt) : String;
Implementation Implementation
@ -305,9 +305,12 @@ Begin
Result := Res MOD 7; Result := Res MOD 7;
End; End;
Function DaysAgo (Date: LongInt) : LongInt; Function DaysAgo (Date: LongInt; dType: Byte) : LongInt;
Begin Begin // 1 = date=julian, 2 = date=dosdate
Result := DateStr2Julian(DateDos2Str(CurDateDos, 1)) - Date; Case dType of
1 : Result := CurDateJulian - Date;
2 : Result := CurDateJulian - DateStr2Julian(DateDos2Str(Date, 1));
End;
End; End;
Function TimerSet (Secs: LongInt) : LongInt; Function TimerSet (Secs: LongInt) : LongInt;