DsigExpress Tipo de Cambio Sunat

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.

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

Acerca del autor

Fernando M.Blas administrator

    Deja un comentario

    Ds| ChatBox
    --.--.---- Desconectado
    Excel Servicios 2020-07-02 01:46:28
    Buen Día, cual es su consulta.
    1 image