gettime pascal

Ответ от Василий Назаров[гуру]
1. Через модуль Dos ( в начале программы не забываем писать uses Dos; )
Дата
procedure GetDate(var Year,Mounth,Day,DayofWeek: Word);
Year - год от 1980 до 2099
Month - номер месяа от 1 до 12
Day - день от 1 до 31
DayofWeek - день недели от 0 до 6 (причем 0 это воскресенье)
Время
procedure GetTime(var Hour,Minute,Second,Sex100: Word);
Возвращает текущее время установленое в Dos.
Hour - час от 0 до 23
Minute - минуты от 0 до 59
Second - секунды от 0 до 59
Sec100 - сотые доли секунды от 0 до 99
2. модуль WinDos
функции абсолютно те же самые что и выше.
Василий Назаров
Мыслитель
(5039)
допустим i:integer; d:word;
преобразование делается так
i:=integer(d);
(по-моему преобразование там должно автоматически делать)
если вы вызываете те процедуры, то заведите соответствующие переменные типа word
с integer у вас вряд ли получится вызвать gettime например.