| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
неправильная дата [D6, Paradox]
GIL © (2003-11-06 12:01:00)
procedure TForm1.Main_TFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
var y,d,m,m1,d1,dd,mm,y1,yy:word;
dat,dat1:TDate;
begin
Accept:=False;
if not (Main_TBirth.Value = null) then
begin
decodedate(da,y,m,d);
decodedate(lda,y1,m1,d1);
decodedate(Main_TBirth.Value,yy,mm,dd);
dat:=encodedate(y1,mm,dd);
showmessage(datetostr(Main_TBirth.Value));
if (lda<=dat)and(dat<=da) then Accept:=True;
end;
end;
в таблице все тестовые значения - 29.10.1983
в сообщении появляется - 31.07.18533
и 30.12.15443 после появления PrintPreview от QuickReport"а
GIL (2003-11-06 12:41:00) [21]
а мне каково?
GIL (2003-11-06 12:40:00) [22]
if (lda<=dat)and(dat<=da) then Accept:=True else Accept:=False;
сделал так и ошибки выскакивают, но что-то выводится, хотя все равно говорит, что пустая
Serg (2003-11-06 12:40:00) [23]
заморочил, блин, всем голову
Mike Kouzmine (2003-11-06 12:39:00) [24]
Потрепаться однозначно интереснее.
GIL (2003-11-06 12:37:00) [25]
if dataset.IsEmpty then showmessage("");
показывает!!!
Serg (2003-11-06 12:36:00) [26]
попробуй потрассерить и посмотри, какое значение у поля birth.
если ты говоришь, что оно у тебя везде равно 29.10.1983, так оно и в этом обработчике должно быть таким же, а не 31.07.ххххх.
кстати, нет никакого смысла для каждой записи делать
decodedate(da,.....)
decodedate(lda,....)
это можно вынести за пределы обработчика.
Anatoly Podgoretsky (2003-11-06 12:35:00) [27]
Значит такое и есть
Mike Kouzmine (2003-11-06 12:35:00) [28]
GIL © (06.11.03 12:33) [8] Значит так и есть.
Ты бы хоть структуру таблицы показал.
GIL (2003-11-06 12:33:00) [29]
showmessage(datetostr(dataset.fieldbyname("birth").asdatetime));
показывает 09.07.12595
GIL (2003-11-06 12:29:00) [30]
ну они так отображаются в дбгриде, а поле типа даты попробовал изменить main_t.fieldbyname("birth").asdatetime на DataSet.fieldbyname("birth").asdatetime не помогло! в чем вообще дело?????
Anatoly Podgoretsky (2003-11-06 12:26:00) [31]
GIL © (06.11.03 12:15) [3]
Цитата "в таблице все тестовые значения - 29.10.1983"
GIL (2003-11-06 12:19:00) [32]
все тоже самое
Serg (2003-11-06 12:17:00) [33]
вместо Main_TBirth.Value напиши
main_t.fieldbyname("birth").asdatetime
GIL (2003-11-06 12:15:00) [34]
>Johnmen куда ставить?
>Anatoly Podgoretsky где текстовые значения? в таблице тип даты!
Johnmen (2003-11-06 12:10:00) [35]
.AsDateTime
Anatoly Podgoretsky (2003-11-06 12:09:00) [36]
Зачем же ты тогдак текстовые значения пытаешься преобразовать с помощью datetostr?
| |
Страницы: 