Migrar desde VB6 a Delphi

[compuin]

Relajate,

ese simbolo es para sintaxis Delpi pero no sabia que tenia que hacerlo con cualquier codigo de otro lenguaje tambien.

Tomado en cuenta para la proxima vez

[Casimiro Noteví]

Empezado por compuin

Relajate,
ese simbolo es para sintaxis Delpi pero no sabia que tenia que hacerlo con cualquier codigo de otro lenguaje tambien.
Tomado en cuenta para la proxima vez

Estoy muy relajado
Tal y como decimos en nuestra guía de estilo, siempre ha de usarse para poner código fuente, se lee mucho mejor.
Gracias, saludos.

[compuin]

En VB6 esta formula se migra tal como esta o hhay que hacerle alguna conversion en radianes en Delphi ?

Código Delphi [-]
' ====================================================================

' Function to convert geocentric ecliptical coordinates in degrees
' into corresponding right ascension and declination and return
' coordinates as a delimited 2D vector in the form  RA|Decl

  Public Function EQU_Lng_Lat_Equiv_To(Ecl_Lng, Ecl_Lat, Obliquity)
' LEVEL 0

  Dim Q As Variant

  Dim Sin_e As Double
      Sin_e = Sin(Obliquity * Atn(1) / 45)

  Dim Cos_e As Double
      Cos_e = Cos(Obliquity * Atn(1) / 45)

  Dim x As Double

  Dim y As Double

  x = Sin(Ecl_Lng * Atn(1) / 45) * Cos_e - Tan(Ecl_Lat * Atn(1) / 45) * Sin_e

  y = Cos(Ecl_Lng * Atn(1) / 45)

  EQU_Lng_Lat_Equiv_To = Atn(y / x) * 45 / Atn(1)
  If x < 0 Then EQU_Lng_Lat_Equiv_To = EQU_Lng_Lat_Equiv_To + 180

     Q = Sin(Ecl_Lat * Atn(1) / 45) * Cos_e + Cos(Ecl_Lat * Atn(1) / 45) * Sin_e _
       * Sin(Ecl_Lng * Atn(1) / 45)

  EQU_Lng_Lat_Equiv_To = EQU_Lng_Lat_Equiv_To & "|" & Atn(Q / Sqr(-Q * Q + 1)) * 45 / Atn(1)
  
  End Function