9. Anexos.

.Columns.AutoFit
Next i
.Columns.AutoFit
End With
End Sub
Anexos.
Public Sub Anadir_Resul_Informe(ByRef Problema As String, ByRef TiempoSim As Single, ByRef Indice As
Integer, ByRef TiempoSol As Single, ByRef IteracionSol As Integer, ByRef CosteSolucion() As Long)
Dim i As Integer
Dim HorasSim As Integer, MinSim As Integer, SegSim As Integer
Dim HorasSol As Integer, MinSol As Integer, SegSol As Integer
HorasSim = Int(TiempoSim / 3600)
MinSim = Int((TiempoSim - HorasSim * 3600) / 60)
SegSim = Int(TiempoSim - HorasSim * 3600 - MinSim * 60)
HorasSol = Int(TiempoSol / 3600)
MinSol = Int((TiempoSol - HorasSol * 3600) / 60)
SegSol = Int(TiempoSol - HorasSol * 3600 - MinSol * 60)
With Inf_Principal.ActiveSheet
.Cells(Indice + 1, 1) = Problema
.Cells(Indice + 1, 2) = NumeroNodos
.Cells(Indice + 1, 3) = UBound(Vector)
.Cells(Indice + 1, 4) = UBound(NodosOrigen)
.Cells(Indice + 1, 5) = HorasSim & ":" & MinSim & ":" & SegSim
.Cells(Indice + 1, 6) = HorasSol & ":" & MinSol & ":" & SegSol
.Cells(Indice + 1, 7) = IteracionSol
.Cells(Indice + 1, 8) = CosteOptimo
.Cells(Indice + 1, 9) = CosteSolucion(UBound(CosteSolucion))
.Cells(Indice + 1, 10) = ((CosteSolucion(UBound(CosteSolucion)) - CosteOptimo) / CosteOptimo) * 100
.Columns.AutoFit
End With
With Inf_Iteraciones.ActiveSheet
49