vb.net精确到毫秒 vb时间函数毫秒

vb中怎样精确计时，精确到ms

返回开机以来经历的时间（以毫秒计）

创新互联公司是一家从事企业网站建设、成都网站设计、网站制作、外贸营销网站建设、行业门户网站建设、网页设计制作的专业网站设计公司，拥有经验丰富的网站建设工程师和网页设计人员，具备各种规模与类型网站建设的实力，在网站建设领域树立了自己独特的设计风格。自公司成立以来曾独立设计制作的站点上千余家。

Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

或者返回系统当前时间（精确到毫秒）

Public Declare Sub GetSystemTime Lib "kernel32" Alias "GetSystemTime" (lpSystemTime As SYSTEMTIME)

Public Type SYSTEMTIME

wYear As Integer

wMonth As Integer

wDayOfWeek As Integer

wDay As Integer

wHour As Integer

wMinute As Integer

wSecond As Integer

wMilliseconds As Integer

End Type

VB 中如何表示系统时间 能精确到毫秒吗

试过NN次后，我“也”发现这种记录时间的精度为10.0144毫秒，

看来，这个问题是由CLR决定的，如果，只使用FCL的函数，看来没办法解决这一问题了！

看了 LoveCherry(论成败，人生豪迈；大不了，重头再来！^_^) ，给出的文章链接，

受了些启发，对于文章中实现的那个A类，我没看太明白，但是，文章中用到了QueryPerformanceCounterp这个win API函数，楼主，可以导入用一下，我试过多次，在我的机子上，其精度为 210/1000 毫秒左右。

QueryPerformanceCounter这个函数的是一个计数器函数，以百万分之一秒为单位，来记算时间数。

//=============

using System.Runtime.InteropServices;

using System.Threading;

[DllImport("kernel32.dll")]

static extern bool QueryPerformanceCounter([In, Out] ref long lpPerformanceCount);

long t1 = 0;

long t2 = 0;

QueryPerformanceCounter(ref t1);

Thread.Sleep(1); //挂起一毫秒，作为演示

QueryPerformanceCounter(ref t2);

long sp = t2 - t1;//sp的单位为百万分之一秒

float f_time = (float)((decimal) sec / (decimal)10000); //得到0.0001毫秒的精度

f_time = float.Parse(string.Format("{0:F1}",f_time)); //f_time是经过四舍五入，得到的0.1毫秒的精度

vb.net毫秒计时器代码问题

elapsed.Milliseconds 获取毫秒。

每100毫秒，do中的代码执行一次，执行时间将大于100毫秒，这是产生误差的地方之一。invoke执行一个方法txt，必须等txt里面的代码运行完毕，方法才能返回，期间占用的时间全是“误差”。

无限循环，且没有退出机制，停不下来。