Справочник программиста на персональном компьютере фирмы IBM

78

    LEFT$ и RIGHT$. Например, чтобы преобразовать время 17:10:00 в
    5:10 Вы должны вырезать строку символов, соответствующую часам,
    преобразовать ее в числовой вид (используя функцию VAL), вычесть
    12, а затем представить результат опять в виде строки:
    100 T$ = TIME$ 'получаем строку времени
    110 HOUR$ = LEFT$(T$,2) 'выделяем значение часов
    120 MINUTES$ = MID$(T$,4,2) 'выделяем значение минут
    130 NEWHOUR = VAL(HOUR$) 'преобразуем часы в число
    140 IF NEWHOUR > 12 THEN NEWHOUR = NEWHOUR - 12
    150 NEWHOUR$ = STR$(NEWHOUR) 'новое значение в строку
    160 NEWTIME$ = NEWHOUR$ + ":" + MINUTES$ 'делаем новую строку
    Средний уровень.
    MS DOS предоставляет прерывания для чтения и установки време-
    ни, производя необходимые преобразования между значением счетчика
    времени суток и часами-минутами-секундами. Время выдается с точ-
    ностью до 1/100 секунды, но поскольку счетчик времени суток об-
    новляется с частотой в пять раз меньшей, то показания сотых се-
    кунд очень приближенные. Функция 2CH прерывания 21H выдает время,
    а функция 2DH - устанавливает его. В обоих случаях CH содержит
    часы (от 0 до 23, где 0 соответствует полночи), CL - минуты (от 0
    до 59), DH - секунды (от 0 до 59) и DL - сотые доли секунд (от 0
    до 99).
    Кроме того при получении времени функцией 2CH, AL содержит
    номер дня недели (0 = воскресенье). Значение дня будет верным
    только если была установлена дата. DOS вычисляет номер дня недели
    по дате. Отметим также, что при установке времени функцией 2DH,
    AL отмечает правильность введенного значения времени (0 = пра-