Add(InlineCode,2906007,133,287)
{
 WorkPoints=#9:doConvert|
 EventPoints=#5:Event|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,windows,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|22:     Event: THI_Event;|53:     procedure doConvert(var Data:TData; index:word);|5: end;|0:|14:implementation|0:|5:const|24:  UnixDateDelta = 25569;|0:|0:|56:function DateTimeToUnix(const AValue: TDateTime): Int64;|5:begin|57:  Result := Round((AValue - UnixDateDelta) * SecsPerDay);|4:end;|0:|32:procedure THiAsmClass.doConvert;|4:var |12:  s: string;|5:begin|34:  s:=Int2Str(DateTimeToUnix(now));|24:  _hi_OnEvent(Event,s); |4:end;|0:|4:end.|
}