DeclareReturnsub
GetLocalTime Lib "Kernel32" (lpSystemTimeas
SYSTEMTIME) Type SYSTEMTIME wYearas
Integer wMonthas
Integer wDayOfWeekas
Integer wDayas
Integer wHouras
Integer wMinuteas
Integer wSecondas
Integer wMillisecondsas
Integer End Type ... dim MyTimeas
SYSTEMTIME GetLocalTime MyTime text$="The Date is:" & MyTime.wMonth & "/" & _ MyTime.wDay & "/" & MyTime.wYear MsgBox text$ Thomas.Uebermeier@stud.uni-bayreuth.de