以下是在小雄VB小站看到的文章：
(一般模組)
Declare Function GetTickCount Lib "kernel32" () As Long
(表單 一般)
Dim StartTime As Long
Private Sub Form1_Activate()
StartTime = GetTickCount <<<<<<<<<<<<<<<<<<<我的問題在這一段
End Sub
LONG的最大值是2,147,483,647
一天有86400000毫秒
相除的結果是24.8，那麼，是不是當我開機超過二十五天，
這段程式就不再適用？
--
我實在是找不到電腦連開二十五天來測～
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.169.195.109
> -------------------------------------------------------------------------- <
作者: hamsters (hamster) 看板: Visual_Basic
標題: Re: [VB6 ] GetTickCount_API一問
時間: Fri Oct 7 22:30:41 2005
※ 引述《YAKATA (0rz.net/820hU )》之銘言：
: 以下是在小雄VB小站看到的文章：
: (一般模組)
: Declare Function GetTickCount Lib "kernel32" () As Long
: (表單 一般)
: Dim StartTime As Long
: Private Sub Form1_Activate()
: StartTime = GetTickCount <<<<<<<<<<<<<<<<<<<我的問題在這一段
: End Sub
: LONG的最大值是2,147,483,647
: 一天有86400000毫秒
: 相除的結果是24.8，那麼，是不是當我開機超過二十五天，
: 這段程式就不再適用？
其實 GetTickCount 回傳的是 DWORD (就是無符號的 Long),所以可以使用 49.7 天,
但是超過後還是會歸零重來.
不過 VB 不支援無符號的整數,所以要自己算出負值的 Long 相對應的無符號整數.
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 219.86.34.2