Скачать: CL | DM;

Ограничение на StrToDate   Найти похожие ветки 

← →
oxffff ©   (2008-01-10 15:09) [0]

StrToDate не может обрабатывать строки вида YYYYMMDD.
По скольку использует в работе DateSeparator

Например, строка вида 20080110

format.ShortDateFormat:="YYYYYMMMDDD";
date1:=StrToDate("20080110",format);

StrToDate валиться на ней.

Или я не прав?

---

← →
oxffff ©   (2008-01-10 15:10) [1]

> StrToDate валиться на ней.


валится

---

← →
oxffff ©   (2008-01-10 15:10) [2]

> StrToDate валиться на ней.


валится

---

← →
oxffff ©   (2008-01-10 15:10) [3]

> format.ShortDateFormat:="YYYYYMMMDDD";

>
> format.ShortDateFormat:="YYYYMMDD";

---

← →
oxffff ©   (2008-01-10 15:12) [4]

Во блин, на таких вещах завалиться. Sorry

S must consist of two or three numbers, separated by the character defined by the DateSeparator global variable or its TFormatSettings equivalent.

---

← →
Семен Сурков   (2008-01-10 15:13) [5]

> Во блин, на таких вещах завалиться. Sorry

еще парочку постов напиши, а то мало как-то.

:р

---

← →
oxffff ©   (2008-01-10 15:15) [6]

> Семен Сурков   (10.01.08 15:13) [5]


Ты лучше решение предложи готовое.

---

← →
Семен Сурков   (2008-01-10 15:16) [7]

>
> Ты лучше решение предложи готовое.

я думаю, что самому написать
сомневаюсь, что в дельфи такое готовое есть.

---

← →
Игорь Шевченко ©   (2008-01-10 15:18) [8]

RxLib:

function StrToDateFmt(const DateFormat, S: string): TDateTime;

---

← →
Palladin ©   (2008-01-10 15:19) [9]

:)

Function StrToDate(Const s:String):TDateTime;
Var
 n:Integer;
 y,m:Word;
Begin
 n:=StrToIntDef(s,-1);
 If n=-1 Then Result:=SysUtils.StrToDate(s) Else
  Begin
   y:=n div 10000; n:=n mod 10000;
   m:=n div 100; n:=n mod 100;
   Result:=EncodeDate(y,m,n);
  End;
End;

---

← →
oxffff ©   (2008-01-10 15:20) [10]

> Palladin ©   (10.01.08 15:19) [9]


> Игорь Шевченко ©   (10.01.08 15:18) [8]


Спасибо огромное.

---

← →
Anatoly Podgoretsky ©   (2008-01-10 16:01) [11]

> oxffff  (10.01.2008 15:12:04)  [4]

Опять "глюк" нашел.

---

← →
Семен Сурков   (2008-01-10 16:02) [12]

>  [11] Anatoly Podgoretsky ©   (10.01.08 16:01)
> > oxffff  (10.01.2008 15:12:04)  [4]
>
> Опять "глюк" нашел.


мастер

---

← →
Romkin ©   (2008-01-10 16:31) [13]

Стандартная DateTimeToString чем плоха?

---

← →
Palladin ©   (2008-01-10 16:32) [14]

тем, что она наоборот :)))

---

← →
oxffff ©   (2008-01-10 16:37) [15]

> Anatoly Podgoretsky ©   (10.01.08 16:01) [11]


Нет, в этот раз не прочитал об этой особенности.
Точнее был настолько уверен, что функция универсальна.
Увы, это не так. А другой не нашел.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.015 c