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