powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / IBM DB2, WebSphere, IMS, U2 [игнор отключен] [закрыт для гостей] / Тип Date в Delphi и DB2
3 сообщений из 3, страница 1 из 1
Тип Date в Delphi и DB2
    #34483385
uaa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
uaa
Гость
Дилетант...
Скажите, pls, вот на сервере DB2 объявлен столбец типа Date и туда внесено значение '29.05.2005', далее в Delphi на форму помещен компонент DateTimePicker, в котором я заведомо назначаю дату больше, чтобы выполнялось некоторое условие. Вопрос: как получить одинаковый формат даты в Delphi и DB2, т. к. по умолчанию они видимо абсолютно не совместные

var strSql:string;
AmDate, q2: TDate;
q1: TTimeStamp;
qwert, q3: string;
begin
AmDate:=DateTimePicker1.Date;
strSql:=' SELECT Id AS Íîìåð_ÎÑ, MName AS Íàèìåíîâàíèå_ÎÑ, (('
+ intToStr(YearOf(AmDate))
+ '-(year(VvDate)))*12+('
+intToStr(MonthOf(AmDate))
+'-(month(VvDate))))*NPrice/(12*Srok) AS Ñóììà_àìîðòèçàöèè, (NPrice - (('
+ intToStr(YearOf(AmDate))
+ '-(year(VvDate)))*12+('
+intToStr(MonthOf(AmDate))
+'-(month(VvDate))))*NPrice/(12*Srok)) AS Îñòàò_ñòîèìîñòü FROM Means'
+' WHERE Date(VvDate) < "' + DateToStr(DateOf(AmDate)) + '"';
qAmortiz.SQL.Text:=strSql;
qAmortiz.ExecSQL;
qAmortiz.Open;
end;

где переменная VvDate - имя столбца типа Date, загружаемого из DB2
...
Рейтинг: 0 / 0
Тип Date в Delphi и DB2
    #34483976
alexmv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Используй FormatDateTime('yyyy-mm-dd', AmDate) вместо DateToStr(DateOf(AmDate))
...
Рейтинг: 0 / 0
Тип Date в Delphi и DB2
    #34484258
Фотография Alexey Popov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Либо через параметры запроса.
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / IBM DB2, WebSphere, IMS, U2 [игнор отключен] [закрыт для гостей] / Тип Date в Delphi и DB2
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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