Code:
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Sub Command1_Click()
Dim SystemStartTimeDate As Data
Ddayticked = timeGetTime / 1000 / 60 / 60 / 24 'min
MsgBox DateValue(Now() - Ddayticked)
MsgBox TimeValue(Now() - Ddayticked)

End Sub
the above will retrive the system started time and date.
but it seems systems started before 25 or so shows incorrect system started date and its a feature date ex 10/15/2009 according to one of my client bug report

screen shots :

This is correct. it was taken using a 3rd party tool


but,
for the same, my above code shows

system started date 10/13/2009 time: 3/18/34

any problem with above code?