13/04/24 20:45:02.07 .net
Degree := 0;
x1 := DegToRad(StrToFloatdef(Ax,0)); // 地点A(経度x1)
y1 := DegToRad(StrToFloatdef(Ay,0)); // (緯度y1)
x2 := DegToRad(StrToFloatdef(Bx,0)); // 地点B(経度x2)
y2 := DegToRad(StrToFloatdef(By,0)); // (緯度y2)
if (X1 <> 0) and (y1 <> 0) and (x2 <> 0) and (y2 <> 0) then
begin
Degree := ArcTan2(Sin(x2 - x1),Cos(y1) * Tan(y2) - Sin(y1) * Cos(x2 - x1));
Degree := 360 + RadToDeg(Degree);
end;
一応こんな感じで数値が合うようになりました。
感謝