DECLARE INTEGER SetSystemTime IN win32api STRING @ lpTime >DECLARE INTEGER GetSystemTime IN win32api STRING @ lpTime > >lpCurrent = space(40) >GetSystemTime(@lpCurrent) && save current > >* Set to 29th Feb, 2000 16:45:10.0100 >wYear = 2000 >wMonth = 2 >wDayOfWeek = 0 && ignored >wDay = 29 >wHour = 16 >wMinute = 45 >wSecond = 10 >wMilliseconds = 100 > >cNewTime = Num2Word(wYear)+; >Num2Word(wMonth)+; >Num2Word(wDayOfWeek)+; >Num2Word(wDay)+; >Num2Word(wHour)+; >Num2Word(wMinute)+; >Num2Word(wSecond)+; >Num2Word(wMilliseconds) > >SetSystemTime(@cNewTime) > >? 'After setsystem time :',datetime() >SetSystemTime(@lpCurrent) >? 'Reset back to current :',datetime() > >Function Num2Word >lparameters tnDecimal >return chr(tnDecimal%256)+chr(int(tnDecimal/256))Cetin