Определение локального времени/даты

Страница 1 из 1

Модератор форума: stalker, Ekz

Форум » Все о Delphi » Начинающим » Определение локального времени/даты (Проблема в функции определения локального времени)

Определение локального времени/даты

TaurusBrown

Дата: Среда, 18.11.2009, 00:20 | Сообщение # 1

Ранг 1

Группа: Пользователи

Сообщений: 3

Награды: 0

Репутация: 0

Статус: Offline

Знаю, что это предельно просто. Именно поэтому я в недоумении.
Может я пропустил какой-то нюанс? Юзанье гугла не помогло, решение не нашёл.

procedure TForm1.CmdCalcClick(Sender: TObject);
Var Now: TSystemTime;
begin
GetLocalTime (Now);
Edit1.Text := DateToStr(Now.wDay); // Выдаёт значение "16.01.1900"
end;

и собственно вопрос... wtf??

skycar

Дата: Среда, 18.11.2009, 07:02 | Сообщение # 2

Ранг 6

Группа: Проверенные

Сообщений: 116

Награды: 5

Репутация: 31

Статус: Offline

Чтоб получить текущую дату, надо юзать функцию DateToStr(Date), получить текущее локальное время - TimeToStr(Time);

Code

procedure TForm1.CmdCalcClick(Sender: TObject);
begin
Edit1.Text := DateToStr(Date);
end;

Сообщение отредактировал skycar - Среда, 18.11.2009, 07:04

TaurusBrown

Дата: Суббота, 21.11.2009, 16:57 | Сообщение # 3

Ранг 1

Группа: Пользователи

Сообщений: 3

Награды: 0

Репутация: 0

Статус: Offline

Эта функция почему-то правильно выдала только время. Дату на этот раз - "30.12.1899".
но вот когда написал

Code

procedure TForm1.CmdCalcClick(Sender: TObject);
begin
Edit1.Text := DateToStr(Now);
end;

тогда наконец выдал действительный результат. Так что спасибо.:)
вот только хотелось бы получать номер месяца/дня недели и т.п.
Искал. Не нашёл.

Admin

Дата: Суббота, 21.11.2009, 17:15 | Сообщение # 4

Ранг 10

Группа: Пользователи

Сообщений: 1268

Награды: 16

Репутация: 2

Статус: Offline

Добавь модуль DateUtils
И внимательно посмотри его.

Вот например как получить номер недели

Code

WeekOf(Date));

Номер месяца

Code

MonthOf(Date))

Не оказываю помощь через личные сообщения и ICQ

TaurusBrown

Дата: Суббота, 21.11.2009, 18:37 | Сообщение # 5

Ранг 1

Группа: Пользователи

Сообщений: 3

Награды: 0

Репутация: 0

Статус: Offline

Всё работает, премного благодарен smile

Страница 1 из 1