unit KGlobal;

interface
  function TimeInMSec:double;
  var Simulation : boolean;
  function VersionNr : string;
  const crlf =#13#10;

procedure Register;

implementation
uses SysUtils;

function TimeInMSec:double;
var Hour,Min,Sec,MSec:Word;
begin
  DecodeTime(Time,Hour,Min,Sec,MSec);
  Result := ((Hour*60 + Min)*60+Sec)*1000 + MSec;
end;

function VersionNr:string;
var s:string; i:integer;
begin
  s := ParamStr(0);
  ExtractFileName(s);
  i := FileAge(s);
  Result := FormatDateTime('yymmdd.hh',FileDateToDateTime(i));
end;

procedure Register;
begin
end;

initialization
  Simulation := true; 

end.