Cita:
Empezado por compuin
La funcion en VB6 pinta asi
Public Function LBR_For_Venus(At_JDE)
' LEVEL 0
Dim L As Double
Dim B As Double
Dim R As Double
Dim T As Double
' Compute T as Julian millennia since J2000.0
T = (At_JDE - 2451545#) / 365250
' Compute heliocentric, ecliptical Longitude L in radians
L = Venus_L01(T) + Venus_L11(T) + Venus_L21(T) + Venus_L31(T) _
+ Venus_L41(T) + Venus_L51(T)
B = Venus_B01(T) + Venus_B11(T) + Venus_B21(T) + Venus_B31(T) _
+ Venus_B41(T) + Venus_B51(T)
R = Venus_R01(T) + Venus_R11(T) + Venus_R21(T) + Venus_R31(T) _
+ Venus_R41(T) + Venus_R51(T)
' Convert longitude and latitude from radians into degrees.
L = L * 45 / Atn(1)
If Abs(L) >= 360 Then L = L - 360 * Int(L / 360)
If L < 0 Then L = L + 360
B = B * 45 / Atn(1)
' Return the L,B,R values in a data vector string
LBR_For_Venus = L & "|" & B & "|" & R
End Function
Esto es lo que estoy tranado de migrar a Delphi
|
No olvides usar las etiquetas para el código fuente, que ya no eres un novato aquí
