Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная

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

Оцените материал
(0 голосов)

Возвращаем дату как: Сегодня 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;
Прочитано 4162 раз
Другие материалы в этой категории: « Как узнать возраст человека
Авторизуйтесь, чтобы получить возможность оставлять комментарии
мстители 2012
Купить мужские кожаные барсетки.

Авторизация



Счетчики