IPB

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

Language:
Русский
English

  {GetDate.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the GetDate procedure.}

  uses WinDos, WinCrt;

  const
    days : array [0..6] of String[9] =
      ('Sunday','Monday','Tuesday',
       'Wednesday','Thursday','Friday',
       'Saturday');
  var
    y, m, d, dow : Word;
  begin
    GetDate(y,m,d,dow);
    Writeln('Today is ', days[dow],', ',
            m:0, '/', d:0, '/', y:0);
  end.

 
 К началу страницы 
Тэги:
 

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



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