Visual Basic Programming Code Examples Visual Basic > Code Snippets Current system time Current system time Private Declare Sub GetLocalTime Lib "kernel32" (lpsysTime As sysTime) Private Type sysTime 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 Private Function CurrentTime() As String Dim sysTime As sysTime GetLocalTime sysTime CurrentTime = sysTime.wYear & "/" & sysTime.wMonth & "/" & sysTime.wDay & " " & sysTime.wHour & ":" & sysTime.wMinute & ":" & sysTime.wSecond End Function Private Sub Form_Load() MsgBox (CurrentTime) End Sub
