to_date(sysdate,'''dd.mm.yyyy''')

to_date(sysdate,''''dd.mm.yyyy'''')

CREATE OR REPLACE PACKAGE      CUST AS
  FUNCTION TESTPROC(STELNUMBER varchar2( 10 ))
  return varchar2;
end CUST;
/

CREATE OR REPLACE package body   CUST AS
  FUNCTION TESTPROC(STELNUMBER varchar2( 10 ))
  		   return varchar2 is
  v varchar2( 255 );
  begin
  	v :='';
	select 'OK' into v from sys.dual;
    return v;
  end TESTPROC;
end;
/

Sub RunProc1(Conn As ADODB.Connection)
Dim cmd As ADODB.command
Dim p As ADODB.Parameters
'On Error GoTo err_debug
 100  Set cmd = New ADODB.command
 110  Set cmd.ActiveConnection = Conn
 120  cmd.CommandTimeout =  1 
 130  cmd.CommandType = adCmdStoredProc
 140  cmd.CommandText = "billdba.cust.testproc"
 150  Set p = cmd.Parameters
 170  p.Append cmd.CreateParameter("STELNUMBER", adVarChar, adParamInput,  10 ,  1 )
 180  p.Append cmd.CreateParameter("nnumber", adNumeric, adParamInput, ,  1 )
 200  cmd.Execute
Debug.Print Connection1.Errors.Count
Debug.Print Connection1.Errors( 0 ).Description
Exit Sub
err_debug:
Debug.Print Erl & ":" & Err.Number & " " & Err.Description
End Sub

CREATE OR REPLACE PACKAGE CUST AS
  procedure TESTPROC
  (
  STELNUMBER varchar2,
  nnumber number);

end CUST;
/

create or replace package body CUST AS
  procedure TESTPROC(
  STELNUMBER varchar2,
  nnumber number
  )
 as
 v varchar2( 255 );
 date_sys date;
  begin
    if nnumber= 1  then date_sys:=to_date(sysdate,'dd.mm.yyyy'); end if;
  end TESTPROC;
end;