Tad, ну ты хоть сравнение бы сделал для начала а то получается "Аттело промахнулся!" Что думаешь я даун что-ли  В конвертере эта константа VCLDATE0 отличает код от оригинальной функции. А зачем она там, сиё великая тайна  Add(MainForm,16206858,217,161)
{
link(onCreate,3121164:doEvent1,[])
}
Add(DateConvertor,16735417,315,175)
{
Mode=19
Point(Data)
link(onResult,16206858:doCaption,[(352,181)(352,174)(205,174)(205,167)])
link(Data,12465396:DateTime,[])
}
Add(Time,12465396,308,119)
{
Point(DateTime)
}
Add(InlineCode,2906007,315,238)
{
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.|
link(Event,16067906:doText,[])
}
Add(Label,16067906,371,238)
{
Left=185
Top=40
}
Add(Hub,3121164,273,175)
{
link(onEvent1,16735417:doConvert,[])
link(onEvent2,2906007:doConvert,[(301,188)(301,244)])
}
Кстати я мог бы и на васике предложить но там видать в Now смещение с учётом этой константы Add(MainForm,16206858,217,161)
{
link(onCreate,3121164:doEvent1,[])
}
Add(DateConvertor,16735417,315,175)
{
Mode=19
Point(Data)
link(onResult,16206858:doCaption,[(352,181)(352,174)(205,174)(205,167)])
link(Data,12465396:DateTime,[])
}
Add(Time,12465396,308,119)
{
Point(DateTime)
}
Add(InlineCode,2906007,315,238)
{
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.|
link(Event,16067906:doText,[])
}
Add(Label,16067906,371,238)
{
Left=185
Top=40
}
Add(Hub,3121164,273,175)
{
OutCount=3
link(onEvent1,16735417:doConvert,[])
link(onEvent2,2906007:doConvert,[(301,188)(301,244)])
link(onEvent3,15442685:doWork,[(295,195)(295,300)])
}
Add(VBJScript,15442685,315,294)
{
WorkPoints=#6:doWork|
EventPoints=#5:onRes|
Script=#27:const UnixDateDelta = 25569|24:const SecsPerDay = 86400|0:|31:Function DateTimeToUnix(AValue)|59: DateTimeToUnix = Round((AValue-UnixDateDelta)*SecsPerDay)|13:End Function|0:|19:Sub doWork(dt, idx)|31: sys.onRes DateTimeToUnix(Now)|7:End Sub|0:|
link(onRes,14282112:doText,[])
}
Add(Label,14282112,371,294)
{
Left=185
Top=80
}
|
Demo: quick use of C# code from the internet
Да мне похрен, кто знает что я смогу и сделаю а не буду кубаторить по 2-3-4 страницы вокруг до около тот поймёт 
Поиск
Друзья
Администрация