Автор: Сергей
WEB-сайт: http://delphibase.endimus.com

{ **** 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;