Visual Basic > API and Miscellaneous sample source codes

Visual Basic Code > Use of the API-call

Use of the API-call

Declare sub GetLocalTime Lib "Kernel32" (lpSystemTime as SYSTEMTIME)
Type SYSTEMTIME
        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


...
dim MyTime as SYSTEMTIME

GetLocalTime MyTime
text$="The Date is:" & MyTime.wMonth & "/" & _
	MyTime.wDay & "/" & MyTime.wYear
MsgBox text$


Return