DsigExpress Tipo de Cambio Sunat
DsigExpress Tipo de Cambio Sunat en una Biblioteca de Clases (dll), el Uso de esta herramienta es muy sencillo y los pasos de configuración te los Explico más Abajo.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Dim dsigTC As New DsigTipoCambio Sub ConsultaTc() Dim x As Byte If [I6] = Empty Or [J6] = Empty Then Exit Sub [C6:F36].ClearContents With dsigTC Call .LoadTipoCambio([I6], [J6]) For x = 1 To 31 If .Matriz_Fecha(x) <> "" Then Cells(x + 5, 3) = x 'numeracion opcional Cells(x + 5, 4).NumberFormat = "@" 'Es Necesario para Convertir (mm/dd/yyyy) a (dd/mm/yyyy) Cells(x + 5, 4) = .Matriz_Fecha(x) 'Array Fecha Tipo de Cambio Cells(x + 5, 4).NumberFormat = "dd/mm/yyyy" 'Conversión a Fecha Cells(x + 5, 4) = CDate(Cells(x + 5, 4)) 'Formato de Fecha Cells(x + 5, 5) = .Matriz_Compra(x) 'Array Tipo Cambio Compra Cells(x + 5, 6) = .Matriz_Venta(x) 'Array Tipo Cambio Compra End If Next End With End Sub |
Es Necesario que Siempre Agregues las Variables Mes y Periodo en Formato de Texto dentro de la Función
DsigExpress Tipo de Cambio Sunat
Descargar Tipo de Cambio Sunat DsigExpress
Si No te carga la Biblioteca Regístrala en Windows te Dejo la Línea de Código mas Abajo
regsvr32 %SYSTEMROOT%\SysWOW64\DsigExpressTC.dll
Fernando M.Blas administrator
Deja un comentario
Deja un comentario
Empresa
Hola. Mi nombre es Fernando M. Blas, soy el autor de este sitio Web.
Quiero facilitarte el trabajo diario con Excel.
Dirección
Mercaderes 406 (Comercial Unión Mercaderes) - Oficina 220
Acerca del autor