USE [MSCHExchange1]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER FUNCTION [dbo].[cl_test]
(
)
RETURNS datetime
AS
BEGIN
	DECLARE @t datetime;
	
	Set @t = getdate();
	
	RETURN @t;

END

Обработка = МодульМСЧ.ПодключитьсяКБД();
Если Обработка = Неопределено Тогда
	Сообщить("Не удалось подключиться к серверу!");
КонецЕсли;
Команда = Новый COMОбъект("ADODB.Command");
Команда.ActiveConnection = Обработка.Соединение;
Команда.CommandType = 1;
ВременнаяТаблица = Новый COMОбъект("ADODB.RecordSet");
ВременнаяТаблица.CursorLocation = 3;
Текст = "declare @t datetime; exec @t = cl_test;";
//Команда.CreateParameter("@t",133,4);
Команда.CommandText = Текст;
//ВременнаяТаблица=Команда.Execute();
Команда.Execute();
Обработка.Соединение.Close();