none
trasladar formula Vb en SqlServer RRS feed

  • Pregunta

  • Buen dia.

    estoy traspasado una formula que esta en una aplicacion windowsform a sql por una migracion que se requiere, pero me atore al final espero me puedan orientar la formula inicial en Vb es:

       

        private double getAngleBetweenPoints(double X1, double Y1, double X2, double Y2)       

    {           

    double dx, dy, result;           

    result = dx = dy = 0;           

    dx = X2 - X1;           

    dy = Y2 - Y1;           

    double angle;

    double radians;           

    radians = Math.Atan2(dy, dx);           

    angle = -(radians * (180 / Math.PI)) + 90;           

    result = (((angle)) < 0 ? 360 : 0) + angle;           

    return (result);       

    }

    y lo que llevo en SQL es esto y solo el final es el que no logro interpretar

    CREATE FUNCTION [dbo].[Fn_getAngleBetweenPoints] ( @X1 double,   @Y1 double,   @X2 double,   @Y2 double)

    RETURNS doubleASBEGIN -- Declare the return variable here

    DECLARE @result

    -- Add the T-SQL statements to compute the return value here

    Declare @dx double 

    Declare @dy double 

    Declare @result double            

    Set @result =0-- dx = dy = 0;           

    @dx = @X2 - @X1;           

    @dy = @Y2 - @Y1;                       

    Declare @angle double            

    Declare @radians double                       

    @radians = CONVERT(varchar,ATN2(@Dy,@Dx ))-- Math.Atan2(dy, dx);           

    @angle = -@radians*(180/PI())+90) ---(radians * (180 / Math.PI)) + 90;           

    @result = (((@angle)) < 0 ? 360 : 0) + @angle;       -- Aqui estoy detenido por que no encuentro como interpretarlo

    -- pense en un If pero me gustaria su opinion   

    RETURN @ResultENDGO



    josemanuel31675

    jueves, 18 de agosto de 2016 16:47

Respuestas

Todas las respuestas