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$



Thomas.Uebermeier@stud.uni-bayreuth.de