IPB

> Intr.PAS
Чат
Форум
Загрузка...
 

Язык:
Русский
English


 { Пример программы для процедуры Intr }

uses Dos;

var
 Date, Year, Month, Day : String;
  Regs                   : Registers;  { Для модуля WinDos используйте }
                                      { тип TRegisters.               }

begin
  Regs.AH := $2A;
 with Regs do
    Intr($21, Regs);
 with Regs do
 begin
   Str(CX, Year);
   Str(DH, Month);
   Str(DL, Day);
 end;
 Date := Day + '.' + Month + '.' + Year;
 WriteLn('Сегодня : ', Date);
end.
 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"