powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Поля TDateTime в ADOQuery
4 сообщений из 4, страница 1 из 1
Поля TDateTime в ADOQuery
    #32178483
Tyoma
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
СУБД: Access 2002; Delphi 5
var
fMin, fMax: TDateTime;
begin
with ADOQuery2 do
begin
Close;
Connection:= ADOConnection1;
Prepared:= True;
Open;
end; // with
fMin:= ADOQuery2.FieldByName('Min-Time').Value; // fMin = 30.12.99 - фигня //какая-та
fMax:= ADOQuery2.FieldByName('Max-Time').Value; // fMin = 30.12.99
// Вот как должно быть:
// fMin:= 15.08.02 2:49:36 fMax:= 14.04.03 10:00:00
// DBGrid1.DataSource:= DataSource1; - Это работает правильно, но оно мне не //надо
end;
...
Рейтинг: 0 / 0
Поля TDateTime в ADOQuery
    #32178497
Tyoma
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Забыл написать сам ADOQuery2.SQL:

SELECT Min(Message.Time) AS [Min-Time], Max(Message.Time) AS [Max-Time]
FROM Message
WITH OWNERACCESS OPTION;

Пробовал
fMin:= ADOQuery2.FieldByName('Min-Time').AsateTime;
все равно не работает, т. е. в fMin = 30.12.99
...
Рейтинг: 0 / 0
Поля TDateTime в ADOQuery
    #32178524
Lana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я когда то сталкивалась с подобным. Проверь дебаггером значение fMin, навернака fMin = 0. Данное значение, если я не ошибаюсь, дельфя интерпретирует как 30.12.1899.
...
Рейтинг: 0 / 0
Поля TDateTime в ADOQuery
    #32178530
Tyoma
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Отбой. Вот так все работает:
var
MinStr, MaxStr: string;
...
DateTimeToString(MinStr, 'dd/mm/yy hh:nn:ss', fMin);
DateTimeToString(MaxStr, 'dd/mm/yy hh:nn:ss', fMax);
...

Правда придеться обратно эти строки в TDateTime конвертить.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Поля TDateTime в ADOQuery
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]