dim fTime as string '定义代码执行开始的时间 dim lTime as string '定义代码执行完时的时间
Sub Button1_Click() fTime = System.DateTime.Now.ToString() ..... ..... '这里是你执行的代码 ..... lTime = System.DateTime.Now.ToString() End Sub
Sub Button2_Click() '这个是显示两个时间之间的差 .....'数据库的连接什么的 dim SqlStr as string = "select datediff(ms," & fTime " & "," & lTime & ")" ....'执行. ....'显示出来就可以了 End Sub