function ZodiacName(juldate: double):string;
var
degree, sign, minute, second: integer;
zs, ms, ss: String;
begin
juldate := juldate + 1/120;
sign := trunc(juldate/30);
degree := trunc(juldate) - sign*30;
minute := trunc(frac(juldate) * 60.0);
second := trunc(frac(juldate * 60) * 60.0);
zs := Format('%0.2d',[degree]);
ms := Format('%0.2d',[minute]);
ss := Format('%0.2d',[second]);
Result := zs + '°' + ' ' + ms + '''' + ' ' + ss + '"' + ZodiacNames[sign] ;
end;