|
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$ |