Мы уже рассматривали работу с датой в шагах "Шаг 13 - Формат даты" и "Шаг 14 - Операции с датой". Но дату, а также время можно получить, используя API.
*typedef struct _SYSTEMTIME { * WORD wYear; * WORD wMonth; * WORD wDayOfWeek; * WORD wDay; * WORD wHour; * WORD wMinute; * WORD wSecond; * WORD wMilliseconds; *} SYSTEMTIME; declare integer GetSystemTime in win32api string @ cBuff = space(40) GetSystemTime(@cBuff) wYear = GetByteValue(cBuff, 2) wMonth = GetByteValue(cBuff, 4) wDayOfWeek = GetByteValue(cBuff, 6) wDay = GetByteValue(cBuff, 8) wHour = GetByteValue(cBuff, 10) wMinute = GetByteValue(cBuff, 12) wSecond = GetByteValue(cBuff, 14) wMilliseconds = GetByteValue(cBuff, 16) clear dlls set date german set century on * Выводим дату dToday = ctod(alltrim(str(wDay)) + '.' + alltrim(str(wMonth)); + '.' + alltrim(str(wYear))) ? dToday * Выводим время tTime = alltrim(str(wHour)) + ':' + alltrim(str(wMinute)) +; ':' + alltrim(str(wSecond)) ? tTime procedure GetByteValue() parameters cBuff, nPos return asc(substr(cBuff, nPos)) * 256 + asc(substr(cBuff, nPos - 1)) endproc
Вот и все, можно запускать.