四时宝库

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MsgBox(#34;开机已过毫秒{开机时间.已过毫秒 }")
        MsgBox(#34;开机时间:{开机时间.开机时间}")
    End Sub

    Function 开机时间() As (已过毫秒 As Integer, 开机时间 As DateTime)
        Dim 已过 As Integer = Environment.TickCount
        Dim 开机 As Date = DateTime.Now.AddMilliseconds(-已过)
        Return (已过, 开机)
    End Function

End Class