[roman]

Empezado por compuin

Ahora me arroja lo siguiente

Declaration expected but 'USES' found

Supongo que estás poniendo la línea antes del uses.

Código Delphi [-]
unit unit1;

interface

uses
  Tal, tal y tal;

function ZodiacName(juldate: double):string;

interface

uses
 Tal, tal y tal;

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;

end.

LineComment Saludos