Hola Jose Luis...
Hola a todos...
En OOo Basic, te quedaría así...
Function aRomanos( n )
Dim oSFA As Object
Dim mDatos
oSFA = createUnoService( "com.sun.star.sheet.FunctionAccess" )
mDatos = Array( n,0 )
aRomanos = oSFA.callFunction( "ROMAN",mDatos() )
End Function
Saludos a todos...
Mauricio
--
_______________________________
Todo lo que no es dado es perdido
2008/10/5 José Luis Torre Hernández <[EMAIL PROTECTED]>
> Cómo podría hacer algo equivalente a la siguiente función de VBA:
>
> function aRomanos(n)
> aRomanos = application.worksheetFunction.roman(n)
> end function
>
>
> Atentamente
> José Luis Torre
> www.ehu.es
>
