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