Hola foro,
Tengo una funcion que me calcula desde 3 matrices diferentes y necesito devolver el valor de cada matriz dentro de la misma funcion.
Lo estoy haciendo de esta manera pero solo puedo devolver 1
Código Delphi
[-]function LBR_For_Venus(At_JDE:extended):extended;
var
L, B, R, T : Extended;
begin
T := (At_JDE - 2451545) / 365250;
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);
L := L * 45 / Arctan(1);
If Abs(L) >= 360 Then L := L - 360 * Int(L / 360);
If L < 0 Then L := L + 360;
B := B * 45 / Arctan(1);
LBR_For_Venus := L;
LBR_For_Venus := B;
LBR_For_Venus := R;
end;
Solo puedo devolver 1 valor a la vez, pero requiero devolver el resultado de cada uno (L, B y R)
Gracias de antemano