SQLDATE - История изменений

Hisava в 12:57, 19 июля 2017

2017-07-19T12:57:01Z

Hisava: /* Текст программы */

2016-11-09T09:41:03Z

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

Hisava: /* Текст программы */

2016-11-09T09:40:52Z

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

Hisava в 09:40, 9 ноября 2016

2016-11-09T09:40:29Z

Hisava: Новая страница: «SQLDATE - это функция из справочника R266 Преобразование даты в стринговый формат ADSSQL для з…»

2016-11-03T09:19:17Z

Новая страница: «SQLDATE - это функция из справочника R266 Преобразование даты в стринговый формат ADSSQL для з…»

Новая страница

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

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

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

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

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]]

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

← Предыдущая		Версия 09:40, 9 ноября 2016
Строка 4:		Строка 4:

	SQLDATE(что угодно что можно преобразовать в дату подробнее в тексте)		SQLDATE(что угодно что можно преобразовать в дату подробнее в тексте)
		+
		+	= Пример =
		+
		+	SqlDate( DATDOC )
		+
		+	[[Файл:09-11-2016 12-39-59.png]]

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

@@ Строка 1: / Строка 1: @@
-SQLDATE - это функция из справочника [[R266]]
+[[SQLDATE]] - это функция из справочника [[R266]]
+ Преобразование даты в стринговый формат ADSSQL для запросов
-Преобразование даты в стринговый формат ADSSQL для запросов
+[[SQLDATE]]( что угодно что можно преобразовать в дату подробнее в тексте )
-−
 SQLDATE(что угодно что можно преобразовать в дату подробнее в тексте)
-−
 = Пример =
+  [[SQLDATE]]( DATDOC )
-  SqlDate( DATDOC )
-−
 [[Файл:09-11-2016 12-39-59.png]]
 = Текст =
-= Текст программы =
-−
   parameters date1
   //Преобразование различных типов дат в стринговй формат для SQL запроса  '2002-11-24'
@@ Строка 36: / Строка 29: @@
     result:='0000-00-00' // 11.10.07 result:=date1
   endif
 = Смотрите также =
 [[Функции Delphi]]

@@ Строка 18: / Строка 18: @@
   if not [[empty]](date1)
-    if valtype(date1)='D' //тип дата
+    if [[valtype]](date1)='D' //тип дата
       str1:=dtos(date1)
     elseif valtype(date1)='C' and len(date1)=9 //kshift (200211241)