Delphi-Help

Главная Статьи Дата и Время Возвращаем дату как: Сегодня 13 марта 2013 года, вторник

Возвращаем дату как: Сегодня 13 марта 2013 года, вторник

Оцените материал
(1 Голосовать)


Возвращаем дату как: Сегодня 13 марта 2013 года, вторник

var
  stDay : array[1..7] of string[11] = ('Воскресенье','Понедельник','Вторник','Среда','Четверг','Пятница','Суббота');
  stMonth : array[1..12] of string[8] = ('января','февраля','марта','апреля','мая','июня','июля','августа','сентября',
'октября','ноября','декабря');
Present: TDateTime;
Year, Month, Day : Word;
begin
 Present:= Now; // Now - функция, возвращает текущую дату и время
 DecodeDate(Present, Year, Month, Day);
 Label1.Caption := 'Сегодня + IntToStr(Day)+' StMonth[Month] + IntToStr(Year)+' года,
'+stDay[DayOfWeek(Present)]+'.';
end;
Прочитано 8239 раз
Другие материалы в этой категории: « Как узнать возраст человека

Авторизация



Счетчики