{ **** UBPFD *********** by delphibase.endimus.com ****
>> Преобразование даты в строку для SQL-сервера

Преобразование даты в строку для SQL-сервера

Зависимости: ???
Автор: Сергей, nfkazak@inbox.ru, Краснодар
Copyright: VIP BANK
Дата: 11 сентября 2002 г.
***************************************************** }

function SQL_Date_String(Date: TDateTime): string;
var
OldFormat: string;
ResultStr: string;
begin
if Date > 0 then
begin
OldFormat := ShortDateFormat;
ShortDateFormat := ‘mm/dd/yyyy’;
ResultStr := DateToStr(Date);
ShortDateFormat := OldFormat;
ResultStr[3] := ‘/’;
ResultStr[6] := ‘/’;
Result := ”” + ResultStr + ””;
end
else
Result := ”;
end;

Эта запись была опубликована 14.12.2007в 20:55. В рубриках: Базы данных. Вы можете следить за ответами к этой записи через RSS 2.0. Комментарии пока закрыты, но Вы можете оставить трекбек со своего сайта.