Автор: Сергей
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;