tag:blogger.com,1999:blog-3985985619911867743.post4246979606907578417..comments2024-02-16T02:39:56.453-06:00Comments on Excel Total: Resultado inesperadoUnknownnoreply@blogger.comBlogger2125tag:blogger.com,1999:blog-3985985619911867743.post-61876124084174972772009-06-22T12:49:43.082-05:002009-06-22T12:49:43.082-05:00Gracias por el aporte. Puedes consultar mi lista d...Gracias por el aporte. Puedes consultar mi lista de resultados obtenidos en la nota:<br /><br />http://lqrexceltotal.blogspot.com/2008/10/lista-de-funciones.html<br /><br />Saludos.L. Quezadahttps://www.blogger.com/profile/13267123609521382416noreply@blogger.comtag:blogger.com,1999:blog-3985985619911867743.post-36742840418391477932009-06-20T23:49:12.310-05:002009-06-20T23:49:12.310-05:00Hola, me hago llamar ckarlanga, y navegando por lo...Hola, me hago llamar ckarlanga, y navegando por los foros di con esta info que me pareció bastante curiosa y sobre todo que alguien la mencionara, siendo un curioso del excel, estuve tratando de abrir la funcion de distribución normal, para ello intenté dar con el complemento que en excel lo contenía y me di la lata de abrir uno por uno los complementos, y por ahí di con el paquete que contiene atpvbes.xla atpvben.xla analisys32.xll funcres.xla y procdb.xla, les saque las claves a estos archivos y en los ATP tanto español como ingles, se encuentra la funcion networkdays y dias.lab, este es el codigo<br /><br /><br /><br />Function Networkdays(start_date As Variant, end_date As Variant, Optional holidays As Variant) As Variant<br /> Networkdays = Application.Run(GetMacroRegId("NETWORKDAYS"), start_date, end_date, holidays)<br />End Function<br /><br /><br />cuando uno ejecuta esa function desde el excel va a esta funcion que ejecuta una funcion base para todas las creadas dentro de este paquete llamada GetMacroRegId<br /><br />esta a su vez, si logras convertir el archivo xla a xls, tiene una descripcion de cada una de las funciones hechas dentro del xla<br /><br /><br />Private Function GetMacroRegId(FuncText As String) As String<br /> Debug.Print ("[GetMacroRegId] '" & FuncText & "' <")<br /> For i = LBound(FunctionIDs) To UBound(FunctionIDs)<br /> If (LCase(FunctionIDs(i, 0)) = LCase(FuncText)) Then<br /> If (Not (IsError(FunctionIDs(i, 1)))) Then<br /> GetMacroRegId = FunctionIDs(i, 1)<br /> Debug.Print ("[GetMacroRegId] '" & FuncText & "' -> '" & GetMacroRegId & "' >")<br /> Exit Function<br /> End If<br /> End If<br /> Next i<br /> Debug.Print ("[GetMacroRegId] Error while finding '" & FuncText & "' >")<br />End Function<br /><br /><br /><br />dentro del xla covertido a xls tienes esto ...<br /><br />Function table <br />Labels VBAname Module Procedure Type text Function text Argument text Macro type Category Shortcut text Help topic Help text Arg1 Arg2 Arg3<br />HEX2DEC Hex2Dec hex2dec PP# HEX.A.DEC número 1 Ingeniería xlmain10.chm!1929 Convierte un número hexadecimal en decimal es el número hexadecimal que desea convertir <br /><br />(encabezados)<br /><br />y estos son los datos<br /><br />NETWORKDAYS Networkdays networkdays PPPP# DIAS.LAB fecha_inicial;fecha_final;festivos 1 Fecha y hora xlmain10.chm!1963 Devuelve el número total de días laborables entre dos fechas es un número de serie que representa la fecha inicial es un número de serie que representa la fecha final<br /><br /><br />el codigo al que haces referencia 840368184, es el id de la macro que tiene adentro la formula de calculo de los dias habiles, apenas tenga una respuesta especifica dentro de que archivo se encuentra ( lo mas probable un dll) te lo informo...<br /><br /><br />un saludo...<br /><br /><br />perdona lo enredado de la respuestas... pero a esta hora no pienso más...Carlos Albertohttps://www.blogger.com/profile/12103606214851682136noreply@blogger.com