procedure Tform_menu.FormShow(Sender: TObject);
const  stMonth : array[1..12] of string[8] =
('ÿíâàðÿ','ôåâðàëÿ','ìàðòà',
'àïðåëÿ', 'ìàÿ','èþíÿ','èþëÿ',
'àâãóñòà','ñåíòÿáðÿ', 'îêòÿáðÿ',
'íîÿáðÿ','äåêàáðÿ');
 
var
Present: TDateTime; 
Year, Month, Day : Word;
begin
Present := Now; 
DecodeDate(Present, Year, Month, Day);
label2.Caption :=IntToStr(Day)+ ' ' +
stMonth[Month] + ' '+ IntToStr(Year)+' ãîäà';
label3.Caption :=FormatDateTime('hh:mm', Now); 
end;

Добавлено через 10 минут
Разобрался

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

18.05.2014, 13:42

Ответы с готовыми решениями:

дата и время
Подскажите пож. SB_Predpriyatie.Panels.Text:= FormatDateTime(ComboBox.Text); Добавлено через 3...

Дата и время ADO
Всем привет. Запутался я. Имеется таблица с полями Дата1 и Дата2. Как записать в них дату и...

Преобразовать в дата/время
Помогите исправить ошибку в этих кодах

ClientDataSet - Дата и время
Привет! Делаю базу данных на Delphi 7 через ClientDataSet.FieldDefs и у меня возникла проблема с...

	18.05.2014, 13:42

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

18.05.2014, 13:42

Помогаю со студенческими работами здесь

дата и время. запрос на выборку.
Ребят не подскажите как сделать поиск по дате и времени совместно, при условии что у меня в базе не...

Ошибка с типом время дата
procedure TForm5.Button1Click(Sender: TObject); var k:integer; a,b:boolean; begin a:=false;...

фильтрация полей формата дата/время
Уважаемые форумчане, помогите пожалуйста! Есть база данных Accsess, подключенная к Delphi через...

Как в поле типа дата время записать пустоту?
на форме едиты и кнопка - вводятся туда данные и записываются в таблицу в акцессе. В таблице поля...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх