|
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 Public Sub TimeLocal dim MyTime as SYSTEMTIME GetLocalTime MyTime text$="The Date is:" & MyTime.wMonth & "/" & MyTime.wDay _ & "/" & MyTime.wYear MsgBox text$ End Sub Esempio di funzione LocalTime con le API |