Время логина пользователя - отрицательное значение

'------------------------frmMain.frm---------------------------
Private Sub Timer_Timer()
LblLoginTime.Caption = ConvSecToDHMS(SysInfo.LogginTime)
End Sub
'------------------Module1.bas---------------------------------
Public Declare Function GetTickCount& Lib 'kernel32' ()
'--------------------------------------------------------------
Public Function ConvSecToDHMS(Sec_in As Long) As String
   Static j As Long
   Static H As Long
   Static m As Long
   Static s As Long
   
   j = Int(Sec_in / 86400)
   Sec_in = Sec_in - (j * 86400)
   
   H = Int(Sec_in / 3600)
   Sec_in = Sec_in - (H * 3600)
   
   m = Int(Sec_in / 60)
   s = Sec_in - (m * 60)
   
   ConvSecToDHMS = j & ' days, ' & Right$('00' & H, 2) & ':' & _
                                   Right$('00' & m, 2) & ':' & _
                                   Right$('00' & s, 2)
End Function
'------------------------SysInfo.cls---------------------------
Public Property Get LoginTime() As Long
   Logintime = GetTickCount&() / 1000
End Property
'--------------------------------------------------------------