VPF::StrToDate - Форум программистов

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

Дата 22.3.2009, 10:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 1
Всего: 15

RapMan, вроде только ручками можно:
Есть готовые переменные-массивы ShortMonthNames, LongMonthNames... Вырезай из строки название месяца... Ищи в цикле его номер... Переводи строку в дату используя найденный номер месяца...

MadCoder

Дата 22.3.2009, 16:58 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

Репутация: 1
Всего: 2

Есть функция FormatDateTime, ее кури.

--------------------

MetalFan

Дата 22.3.2009, 17:29 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

MadCoder, а чем она может помочь?

--------------------

There are always someone smarter than you...

MadCoder

Дата 22.3.2009, 17:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

Репутация: 1
Всего: 2

Что-то вроде этого:

Код


ShortDateFormat:='dd.mmmm.yyyy';
StrToDate('01.Март.2009');

--------------------

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

Дата 22.3.2009, 19:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 1
Всего: 15

Цитата(MadCoder @ 22.3.2009, 16:58

)

Есть функция FormatDateTime, ее кури.

Ее курить без мазы, т.к. при конвертировании строки в дату месяц должен быть в диапазоне 1..12...
И ShortDateFormat здесь не спасет...

Это сообщение отредактировал(а) Kbl4AH - 22.3.2009, 19:37

Poseidon

Дата 23.3.2009, 00:34 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Код


function MyStrToDate(StrDate: string): TDate;
begin
  StrDate:= StringReplace(StrDate, 'январь', '1', [rfIgnoreCase]);
  StrDate:= StringReplace(StrDate, 'февраль', '2', [rfIgnoreCase]);
  StrDate:= StringReplace(StrDate, 'март', '3', [rfIgnoreCase]);
  {так для всех месяцев}
  Result:= StrToDate(StrDate);
end;

хоть и через Ж, но работать будет smile

Это сообщение отредактировал(а) Poseidon - 23.3.2009, 00:35

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Дата 23.3.2009, 08:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

VarToDateTime

Добавлено через 49 секунд

Код


var
D1, D2, D3 : TDateTime;
begin
D1 := VarToDateTime('December 6, 1969');
D2 := VarToDateTime('6-Apr-1998');
D3 := VarToDateTime('1998-Apr-6');
ShowMessage(DateToStr(D1)+' '+DateToStr(D2)+' '+
DateToStr(D3));
end;

DRKB©

--------------------

Кольцов Виктор Владимирович

Дата 23.3.2009, 10:19 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(Frees @ 23.3.2009, 08:05

)

VarToDateTime

все три случая:

Цитата

---------------------------
Project1
---------------------------
Could not convert variant of type (String) into type (Date)
---------------------------
ОК
---------------------------

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Дата 23.3.2009, 13:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

Цитата(pseud @ 23.3.2009, 12:19

)

все три случая:

действительно

но если по русски месяца написать то все Ок, проверил

Код


var
D1, D2, D3 : TDateTime;
begin
try
D1 := VarToDateTime('Декабрь 6, 1969');
D2 := VarToDateTime('6-Апр-1998');
D3 := VarToDateTime('1998-Апр-6');
finally
ShowMessage(DateToStr(D1)+' '+DateToStr(D2)+' '+
DateToStr(D3));
end;

--------------------

Кольцов Виктор Владимирович

Дата 23.3.2009, 13:33 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 1
Всего: 15

pseud, пример Frees - рабочий...
Измени в винде регион на англоязычный или месяцы по-русски напиши...

Дата 23.3.2009, 13:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

Цитата(Kbl4AH @ 23.3.2009, 15:33

)

пример Frees - рабочий...

пример с DRKB

Это сообщение отредактировал(а) Frees - 23.3.2009, 13:38

--------------------

Кольцов Виктор Владимирович

Дата 23.3.2009, 14:38 (ссылка)

(голосов:1)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(Kbl4AH @ 23.3.2009, 13:33

)

pseud, пример Frees - рабочий...

не всегда...

Цитата(Kbl4AH @ 23.3.2009, 13:33

)

Измени в винде регион на англоязычный или месяцы по-русски напиши...

ты считаешь, это правило хорошего тона - рекомендовать юзеру подстроить винду под твою прогу?

Добавлено @ 14:42
RapMan, если твой формат не имеет ничего общего с форматами винды, то придется написать свою функцию конвертации.

Это сообщение отредактировал(а) pseud - 23.3.2009, 14:42

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Дата 23.3.2009, 16:55 (ссылка)

(голосов:2)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 1
Всего: 15

Цитата(pseud @ 23.3.2009, 14:38

)

ты считаешь, это правило хорошего тона - рекомендовать юзеру подстроить винду под твою прогу?

причем здесь юзер? подстрой свою прогу!
у тебя на компе месяцы с русским названием, прога не виновата, что ты ее заставляешь конвертировать месяцы с английским названием...

Дата 23.3.2009, 17:16 (ссылка)

(голосов:1)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(Kbl4AH @ 23.3.2009, 16:55

)

причем здесь юзер? подстрой свою прогу!у тебя на компе месяцы с русским названием, прога не виновата, что ты ее заставляешь конвертировать месяцы с английским названием...

когда ты пишешь прогу, то не знаешь русская винда будет или английская или русифицированная английская. А еще юзеры любят форматы дат винды менять. Или неправильные проги (сам такие писал в детстве) просят юзер подогнать формат даты винды в нужный вид.

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Дата 23.3.2009, 18:04 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 1
Всего: 15

Цитата(pseud @ 23.3.2009, 17:16

)

в точку!
только мне одно интересно, если бы в примере с DRKB месяцы были написаны по-русски, то после тестирования каков был бы твой ответ?
очень я не уверен, что ты бы с ходу написал что-то по поводу неуниверсальности кода smile

Дата 23.3.2009, 18:30 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(Kbl4AH @ 23.3.2009, 18:04

)

только мне одно интересно, если бы в примере с DRKB месяцы были написаны по-русски, то после тестирования каков был бы твой ответ?очень я не уверен, что ты бы с ходу написал что-то по поводу неуниверсальности кода

флуд
1. естественно все бы прокатило. и я бы не выеживался.
2. "только мне одно интересно", если бы я не скопировал этот кусок кода и не проверил его - "очень я не уверен", что ты бы узнал об этом недочете.

Это сообщение отредактировал(а) pseud - 23.3.2009, 18:33

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Дата 23.3.2009, 18:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 1
Всего: 15

Цитата(pseud @ 23.3.2009, 18:30

)

2. "только мне одно интересно", если бы я не скопировал этот кусок кода и не проверил его - "очень я не уверен", что ты бы узнал об этом недочете.

Данкинг

Дата 23.3.2009, 19:01 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(pseud @ 23.3.2009, 17:16

)

А еще юзеры любят форматы дат винды менять.

Одна из моих прог при запуске проверяет нужный формат года (чтобы был 4 знака) и разделитель дробной части (запятая). Если что-то не так - она вообще дальше не работает. smile

--------------------

There's nothing left but silent epitaphs.

Дата 23.3.2009, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(Данкинг @ 23.3.2009, 19:01

)

Одна из моих прог при запуске проверяет нужный формат года (чтобы был 4 знака) и разделитель дробной части (запятая). Если что-то не так - она вообще дальше не работает.

скажи честно, тебе-то хоть стыдно?

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Данкинг

Дата 23.3.2009, 19:46 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(pseud @ 23.3.2009, 19:13

)

скажи честно, тебе-то хоть стыдно?

Поначалу вроде было немного стыдно, что под прогу надо подстраивать настройки, а сейчас уже привык. smile

--------------------

There's nothing left but silent epitaphs.