Modified TheTime function. I found this to be more practicalCode:function TheTimeInSeconds: Integer; var Hour, Mins, Sec, MSec: Word; begin DecodeTime(Now, Hour, Mins, Sec, MSec); Result := Hour * 3600 + Mins * 60 + Sec; end;
Modified TheTime function. I found this to be more practicalCode:function TheTimeInSeconds: Integer; var Hour, Mins, Sec, MSec: Word; begin DecodeTime(Now, Hour, Mins, Sec, MSec); Result := Hour * 3600 + Mins * 60 + Sec; end;
There are currently 1 users browsing this thread. (0 members and 1 guests)