Правила форума
Intr.PASЯзык:
Русский
English
{Intr.PAS}
{ Пример программы для процедуры 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.
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.
::
::
::
