Visual Basic Programming Code Examples
Visual Basic > Code Snippets Code Examples
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
