Здравствуйте, Гость
Вторник, 21.11.2017, 04:52
Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: 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
 
Форум » Все о Delphi » Начинающим » Определение локального времени/даты (Проблема в функции определения локального времени)
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2017
Хостинг от uCoz