SQLDATE — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «SQLDATE - это функция из справочника R266 Преобразование даты в стринговый формат ADSSQL для з…»)
 
м
 
(не показаны 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 )

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