Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Процедура GetDate.

  • Объявление:

    Procedure GetDate(Var Year, Month, Day, DayOfWeek : Word);

  • Описание:

    Возвращает текущую дату, установленную в операционной системе.

  • Замечания:

    Диапазоны возвращаемых значений:
    Year 1980..2099
    Month 1..12
    Day 1..31
    DayOfWeek 0..6 (0 - воскресенье, 1 - понедельник...)

  • Пример:

    { Пример программы для процедуры GetDate }
    Uses WinDos;
    Const Days : Array [0..6] Of String[11] = ('Воскресенье', 'Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота');
    Var Y, M, D, Dow : Word;
    Begin
    GetDate(Y, M, D, Dow);
    WriteLn('Сегодня : ', Days[Dow],', ', M:0, '-', D:0, '-', Y:0);
    End.



Вернуться к оглавлению справочника