Happy Codings - Programming Code Examples
Html Css Web Design Sample Codes CPlusPlus Programming Sample Codes JavaScript Programming Sample Codes C Programming Sample Codes CSharp Programming Sample Codes Java Programming Sample Codes Php Programming Sample Codes Visual Basic Programming Sample Codes


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