скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

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



Автор: Сергей

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





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook