冰
冰力不足
Unregistered / Unconfirmed
GUEST, unregistred user!
首部 function MSecsToTimeStamp(MSecs: Comp): TTimeStamp; $[SysUtils.pas
功能 返回微妙转换成时间结构类型
说明 <NULL>
参考 type SysUtils.TTimeStamp
例子 <NULL>
在google上搜索了N多个解释 异口同声是微妙 实际上应该是毫秒吧?
{
1秒=1000毫秒
1毫秒=1000微秒
1微秒=1000 纳秒
1皮秒 =1000秒
}
function MSecsToTimeStamp(MSecs: Comp): TTimeStamp;
asm
PUSH EBX
{$IFDEF PIC}
PUSH EAX
CALL GetGOT
MOV EBX,EAX
POP EAX
{$ELSE}
XOR EBX,EBX
{$ENDIF}
MOV ECX,EAX
MOV EAX,MSecs.Integer[0]
MOV EDX,MSecs.Integer[4]
DIV [EBX].IMSecsPerDay
MOV [ECX].TTimeStamp.Time,EDX
MOV [ECX].TTimeStamp.Date,EAX
POP EBX
end;
功能 返回微妙转换成时间结构类型
说明 <NULL>
参考 type SysUtils.TTimeStamp
例子 <NULL>
在google上搜索了N多个解释 异口同声是微妙 实际上应该是毫秒吧?
{
1秒=1000毫秒
1毫秒=1000微秒
1微秒=1000 纳秒
1皮秒 =1000秒
}
function MSecsToTimeStamp(MSecs: Comp): TTimeStamp;
asm
PUSH EBX
{$IFDEF PIC}
PUSH EAX
CALL GetGOT
MOV EBX,EAX
POP EAX
{$ELSE}
XOR EBX,EBX
{$ENDIF}
MOV ECX,EAX
MOV EAX,MSecs.Integer[0]
MOV EDX,MSecs.Integer[4]
DIV [EBX].IMSecsPerDay
MOV [ECX].TTimeStamp.Time,EDX
MOV [ECX].TTimeStamp.Date,EAX
POP EBX
end;