Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перевод строки в дату.

r9000 © (2006-11-24 09:45:00)
Добрый день!

Пытаюсь перевести строку даты в дату
dataglobal0:=strtodate('01.01.1900');
если русская настройка, то этот код работет, а как сделать чтобы в этой пременной содержалась данная дата вне зависимости от региональной настройки?

zdm (2006-11-24 17:32:00) [1]
а у автора завязка случаем не на определенную БД?

r9000 (2006-11-24 13:30:00) [2]
Спасибо EncodeDate подходит

Anatoly Podgoretsky (2006-11-24 13:17:00) [3]
> zdm (24.11.2006 12:24:08) [8]

Завязка на настройки, и ему не в том направление и не для того типа, за данный код компилятор серьезно обидится.

Anatoly Podgoretsky (2006-11-24 13:17:00) [4]
> zdm (24.11.2006 12:26:09) [9]

Исправился :-)
Ну так вот у него проблема как раз с strtodate

Anatoly Podgoretsky (2006-11-24 13:16:00) [5]
> r9000 (24.11.2006 12:23:07) [7]

Виноват, вместо DeoceDate использовать противоположную функцию EncodeDate

r9000 (2006-11-24 12:38:00) [6]
Так мне не строку нужно получить FormatDateTime('dd.mm.yyyy',strtodate('01.01.1900')), а дату строки '01.01.1900'

zdm (2006-11-24 12:26:00) [7]
Прошу прощения
FormatDateTime('dd.mm.yyyy',strtodate('01.01.1900')) ? или как угодно-'yyyy/mmmm/dd' например

zdm (2006-11-24 12:24:00) [8]
а не проще FormatDateTime('dd.mm.yyy',datetostr('01.01.1900')) ? или как угодно-'yyyy/mmm/dd' например

r9000 (2006-11-24 12:23:00) [9]
Я посмотрел, но данный оператор разбивает дату на год, месяц, день,
например:
Present:= Now;
DecodeDate(Present, Year, Month, Day);
А как быть в моем случае? Подскажите на примере если можно.

Anatoly Podgoretsky (2006-11-24 11:27:00) [10]
> r9000 (24.11.2006 11:23:05) [5]

А посмотреть справку религия не позволяет.
DecodeDate избавляет от сомнительных операций с DateSeparator

r9000 (2006-11-24 11:23:00) [11]
Спасибо
SaveDateFormat := ShortDateFormat;
SaveDateSeparator := DateSeparator;
ShortDateFormat := 'dd.mm.yyyy';
DateSeparator := '.';
try
DateTimePicker1.Date := strtodate('01.01.1900');
finally
ShortDateFormat := SaveDateFormat;
DateSeparator := SaveDateSeparator;
end;

подходит
A как это можно сделать через DecodeDate непонятно?

Anatoly Podgoretsky (2006-11-24 10:35:00) [12]
DecodeDate

r9000 (2006-11-24 10:25:00) [13]
А можно напримере данном показать как это сделать?

clickmaker (2006-11-24 10:22:00) [14]

> как сделать чтобы в этой пременной содержалась данная дата
> вне зависимости от региональной настройки?

SaveDateFormat := ShortDateFormat;
SaveDateSeparator := DateSeparator;
ShortDateFormat := 'dd.mm.yyyy';
DateSeparator := '.';
try
DateTimePicker1.Date := strtodate('01.01.1900');
finally
ShortDateFormat := SaveDateFormat;
DateSeparator := SaveDateSeparator;
end;

ORMADA (2006-11-24 10:14:00) [15]
по отдельности день месяц год, брать системный разделить даты DateSeparator и форматить всё это в строку

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »