Hola que tal. Quisiera saber como puedo fijar una variable en este caso RHOT del siguiente codigo:
Function calcular_SG(SG, T)
'Aceite Combustible
Dim DELTA As Single
Dim BT As Single
Dim HYC As Single
Dim RHO As Single
Dim RHOT As Single
Dim RHO60 As Single
Dim ALPHA As Single
Dim VCF As Single
Dim SG60 As Single
Const C1 = 0.00001278
Const C2 = 0.0000000062
Const C3 = 141360.198
Const C4 = 131.5
Const C5 = 141.5
Const C6 = 2.7
Const C7 = 999.012
Const K0 = 103.872
Const K1 = 0.2701
Const e = 2.718281828459
'Diferencia Temperatura Observada y Base de Temperatura
DELTA = T - 60
'Termino de Correccion de Hidrometro
HYC = 1# - C1 * DELTA - C2 * DELTA ^ 2
'Conversion Densidad Relativa a Densidad
RHO = SG * C7
'Aplicacion de Correccion de Hidrometro
RHOT = RHO * HYC
'Inicializa la Densidad a 60 F
RHO60 = RHOT
'Coeficiente de Expansion Termica
T11 = K0 / RHO60
T12 = CSng(T11) / CSng(RHO60)
T13 = K1 / RHO60
ALPHA = CSng(T12) + CSng(T13)
'Factor de Correccion de Volumen
T16 = (-ALPHA * DELTA - 0.8 * ALPHA ^ 2 * DELTA ^ 2)
T15 = T16 / 1#
VCF = T15
T17 = e ^ T15
'Calculo de Densidad a 60 F
T18 = RHOT / T17
T20 = T18 / C7
SG60 = T20
calcular_SG = SG60
El problema es que quiero repetir este codigo 10 veces fijando esa variable RHOT y hacer una comparacion final de los 10 resultados y si tienen una diferencia de 0.005 que me tome el ultimo.
Espero y alguien pueda orientarme.
Saludos para todos.
