SQLDATE — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «SQLDATE - это функция из справочника R266 Преобразование даты в стринговый формат ADSSQL для з…») |
Hisava (обсуждение | вклад) м |
||
| (не показаны 3 промежуточные версии этого же участника) | |||
| Строка 1: | Строка 1: | ||
| − | SQLDATE - это функция из справочника [[R266]] | + | [[SQLDATE]] - это функция из справочника [[R266]] |
| − | + | Преобразование даты в стринговый формат ADSSQL для запросов | |
| − | Преобразование даты в стринговый формат ADSSQL для запросов | + | [[SQLDATE]]( что угодно что можно преобразовать в дату подробнее в тексте ) |
| − | + | = Пример = | |
| − | SQLDATE(что угодно что можно преобразовать в дату подробнее в тексте) | + | [[SQLDATE]]( DATDOC ) |
| − | + | [[Файл:09-11-2016 12-39-59.png]] | |
| − | = Текст | + | = Текст = |
| − | + | ||
parameters date1 | parameters date1 | ||
//Преобразование различных типов дат в стринговй формат для SQL запроса '2002-11-24' | //Преобразование различных типов дат в стринговй формат для SQL запроса '2002-11-24' | ||
local str1 | local str1 | ||
| − | 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) | ||
| Строка 30: | Строка 29: | ||
result:='0000-00-00' // 11.10.07 result:=date1 | result:='0000-00-00' // 11.10.07 result:=date1 | ||
endif | endif | ||
| − | |||
= Смотрите также = | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Текущая версия на 15:57, 19 июля 2017
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
