SRL Archive - Help

What time exactly is this returning?

I'm running XP with timezone set to Atlantic (which is on daylight savings atm) so UTC-3…and it is currently 8:45pm local time (11:45pm utc).

I would expect this code:

writeln(MsToTime(GetSystemTime, TIME_BARE));

to return one of the following:
20:45:00 or 08:45:00 (local time)
23:45:00 or 11:45:00 (utc time)

Instead I get:

01:34:33

What am I missing here?

Writeln(thetime)

Interesting. Returns the correct time, just not formatted the way I want. Guess you can't have everything…

this is what it does

{*******************************************************************************
function TheTime : string;
By: RsN (fixed by Ron)
Description: Returns current time as a string
*******************************************************************************}
function TheTime: string;
var
  Hour, Mins, Sec, MSec: Word;
  PAM: string;
begin
  DecodeTime(Now, Hour, Mins, Sec, MSec);
  PAM := 'AM';
  if (Hour > 12) then
  begin
    Hour := Hour - 12;
    PAM := 'PM';
  end else if (Hour = 12) then
    PAM := 'PM'
  else if (Hour = 0) then
    Hour := 12;
  Result := (Padz(IntToStr(Hour), 2) + ':' + Padz(IntToStr(Mins), 2) + ':' + Padz(IntToStr(Sec), 2) + ' ' + PAM);
end;   

GetSystemTime returns the amount of time your computer has been active iirc

No, GetSystemTime returns the time since the epoch (well, at least for Unix. Not sure for Windows).

From: i luffs yeww
No, GetSystemTime returns the time since the epoch (well, at least for Unix. Not sure for Windows).

I guess that is what I was asking: what is it returning (on Windows)?

Windows NT counts the number of 100-nanosecond ticks since 1 January 1601 00:00:00 UT as reckoned in the proleptic Gregorian calendar, but returns the current time to the nearest millisecond.

https://github.com/MerlijnWajer/Simba/blob/master/Units/MMLAddon/PSInc/psexportedmethods.inc

-> calls ps_GetTickCount()

Which returns: https://github.com/MerlijnWajer/Simba/blob/master/Units/MMLAddon/PSInc/Wrappers/other.inc#L285

GetTickCount.

MSDN + GetTickCount: http://msdn.microsoft.com/en-us/library/ms724408%28v=vs.85%29.aspx

Which is: The return value is the number of milliseconds that have elapsed since the system was started.

Huh. The more you know.

Gosh I feel all edjamacated now knowing all that. Thanks for the info.