SQLDATE — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
Строка 18: | Строка 18: | ||
if not [[empty]](date1) | if not [[empty]](date1) | ||
− | if valtype(date1)='D' //тип дата | + | if [[valtype]](date1)='D' //тип дата |
str1:=dtos(date1) | str1:=dtos(date1) | ||
elseif valtype(date1)='C' and len(date1)=9 //kshift (200211241) | elseif valtype(date1)='C' and len(date1)=9 //kshift (200211241) |
Версия 12:41, 9 ноября 2016
SQLDATE - это функция из справочника R266
Преобразование даты в стринговый формат ADSSQL для запросов
SQLDATE(что угодно что можно преобразовать в дату подробнее в тексте)
Пример
SqlDate( DATDOC )
Текст программы
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