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

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

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

персидские ковры из Кашана ищут здесь

восстановление акпп для пежо

Процедура GetTime.

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

    Procedure GetTime(Var Hour, Minute, Second, Sec100 : Word);

  • Описание:

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

  • Замечания:

    Диапазоны возвращаемых значений:
    Hour 0 .. 23 (часы)
    Minute 0 .. 59 (минуты)
    Second 0 .. 59 (секунды)
    Sec100 0 .. 99 (сотые доли секунды)

  • Пример:

    { Пример программы для процедуры GetTime }
    Uses WinDos, WinCrt;
    Var H, M, S, Hund : Word;
    Function LeadingZero(W : Word) : String;
    Var S : String;
    Begin
    Str(W:0, S);
    If Length(S) = 1 Then S:='0'+S;
    LeadingZero:=S;
    End;



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