IPB

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

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


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

uses Dos;

const Days : array[0 .. 6] of String[11] =
   ('Воскресенье', 'Понедельник', 'Вторник',
   'Среда', 'Четверг', 'Пятница', 'Суббота');

var
  Y, M, D, Dow : Word;

begin
  GetDate(Y, M, D, Dow);
 WriteLn('Сегодня : ', Days[Dow], ', ',
          D : 0, '.', M : 0, '.', Y : 0);
end.
 
 К началу страницы 
Тэги:
 

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



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