Date.Now 和 StopWatch

求程序的运行时间，最近遇到了这个问题，本来想用Date.Now.Ticks解决，结果出现了，时间间隔时而为0的情况。

多番调查后，发觉可能是因为Date.Now.Ticks达不到1000Tick以下的精度问题。

改用StopWatch

Imports System.Threading 
 
Module Module1 
 
    Sub Main() 
 
        Dim sw As New Stopwatch() 
        Console.WriteLine("計測を開始します。") 
        sw.Start() 
        Thread.Sleep(3000) 
        sw.Stop() 
        Console.WriteLine("計測を完了しました") 
 
        Console.WriteLine("経過時間の合計 = {0}", sw.Elapsed) 
        Console.WriteLine("ミリ秒単位の経過時間の合計 = {0}", sw.ElapsedMilliseconds) 
        Console.WriteLine("経過時間の分解能 (1秒あたり) = {0}", Stopwatch.Frequency) 
 
        Console.ReadKey() 
 
    End Sub 
 
End Module