SQLDATE

Материал из Фабиус wiki
Перейти к: навигация, поиск

SQLDATE - это функция из справочника R266

Преобразование даты в стринговый формат ADSSQL для запросов

SQLDATE(что угодно что можно преобразовать в дату подробнее в тексте)

Пример

SqlDate( DATDOC )

09-11-2016 12-39-59.png

Текст программы

parameters date1
//Преобразование различных типов дат в стринговй формат для SQL запроса  '2002-11-24'
local str1

if not empty(date1)
  if valtype(date1)='D' //тип дата
    str1:=dtos(date1)
  elseif valtype(date1)='C' and len(date1)=9 //kshift (200211241)
    str1:=substr(date1,1,8)
  elseif valtype(date1)='C' and len(date1)=8 and not (at('.',date1)<>0 or  at('/',date1)<>0 or at('-',date1)<>0)//   урезанный kshift (20021124)
      str1:=date1
  elseif valtype(date1)='C' and len(date1)=8 and (at('.',date1)<>0 or  at('/',date1)<>0 or at('-',date1)<>0)//'24.11.02' или 24/11/2002 или 24-11-2002
    str1:='20'+substr(date1,7,2)+substr(date1,4,2)+substr(date1,1,2)
  elseif valtype(date1)='C' and len(date1)=10// '24.11.2002'
    str1:=substr(date1,7,4)+substr(date1,4,2)+substr(date1,1,2)
  else
    message('incorrect date format')
    return
  endif
    result:=substr(str1,1,4)+'-'+substr(str1,5,2)+'-'+substr(str1,7,2)
else
  result:='0000-00-00' // 11.10.07 result:=date1
endif

Смотрите также

Функции Delphi

Полезные функции