Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Pasar este codigo a macro

19/12/2006 - 11:03 por Alejandro Garcia | Informe spam
Ayuda Hacer una pregunta
Hace unos días tuve un problemilla, y lo logre resolver con una funcion
anidada, desearía si es posible pasarla a macro, pero cuando lo hago me
sale un error y no se como solucionarlo:

Function DiasPrimas(Finicial, Inicio, Final As Date, lic As Integer)
DiasPrimas = SI(Inicio < Finicial, DIAS360(Finicial, Final, FALSO) +
1, DIAS360(Inicio, Final, FALSO) + 1)
End Function

La original es:
=SI(E48<$AC$2,DIAS360($AC$2,G48,FALSO)+1,DIAS360(E48,G48,FALSO)+1)
esto lo coloco en una celda y me da los días que yo necesito
dependiendo de unas fehcas dadas. (Hay un post anterior en donde
explico esto).

El error me lo arroja en ...DIAS360... y no se como solucionarlo.

Agradezco su colaboracion
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
20/12/2006 - 01:22 | Informe spam
hola, Alejandro !

Hace unos días tuve un problemilla, y lo logre resolver con una funcion anidada
desearia si es posible pasarla a macro, pero cuando lo hago me sale un error y no se como solucionarlo:
Function DiasPrimas(Finicial, Inicio, Final As Date, lic As Integer)
DiasPrimas = SI(Inicio < Finicial, DIAS360(Finicial, Final, FALSO) + 1, DIAS360(Inicio, Final, FALSO) + 1)
End Function
La original es: =SI(E48<$AC$2,DIAS360($AC$2,G48,FALSO)+1,DIAS360(E48,G48,FALSO)+1)
esto lo coloco en una celda y me da los dias que yo necesito dependiendo de unas fehcas dadas.
El error me lo arroja en ...DIAS360... y no se como solucionarlo.



en vba, no puedes 'usar' funciones de hoja de calculo 'tal-como' las usas en las hojas de calculo [y debes usarlas en ingles] :(
prueba con esta funcion 'modificada/adaptada/corregida/...' [y compara las 'sintaxis']
[nota que el argumento para el 'metodo, si va a ser 'falso' puede incluso ser 'omitido'] ;)

Function DiasPrimas(Finicial As Date, Inicio As Date, Final As Date) As Integer
DiasPrimas = Application.Days360(IIf(Inicio < Finicial, Finicial, Inicio), Final) + 1
End Function

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares

 

Busqueda sugerida :