Write delphi function in PL/SQL?

Question

How to write the equivalent PL/SQL function from this Delphi function:

Function TConvert.MGRS(lat : Double; Lon : Double; a : Double; 
         InverseFlattening : Double; Coding:Integer; Digits : Integer) : String ;
var
 UTMs1 : String;
 E1 : Double;
 N1 : Double;
 Zn : Integer;
 Lzn : String;
 Sq : String;
begin
 UTMs1 := UTM(lat, Lon, a, InverseFlattening) ;
 E1 := UTMX(UTMs1);
 N1 := UTMY(UTMs1);
 Zn := UTMZone(lat, Lon);
 Lzn := MGRSLatZone(lat);
 Sq := SquareID(Zn, N1, E1, Coding);
 Result := Format('%.2d', [Zn] )  + Lzn + Sq +
     Copy(Format('%.5d',[Round(E1 - 100000 * Trunc(E1 / 100000))]), 1, Digits) +
     Copy(Format('%.5d',[Round(N1 - 100000 * Trunc(N1 / 100000))]), 1, Digits);
end;

MGRS(0, 0, 6378.137, 298.2572236, 1, 5) = 31NAA6602100000

Some samples of expected inputs and output would also be useful. — Disillusioned
– Disillusioned, Commented Sep 12, 2013 at 11:38
Do you know any PL/SQL? Have you tried to write any code? Do you understand what this code does? — David Heffernan
– David Heffernan, Commented Sep 12, 2013 at 11:45
@David Heffernan Yes I know some PL/SQL. Yes, almost done writing. Yes, but I am not able to understand how to format it in PL/SQL. — wittrup
– wittrup, Commented Sep 12, 2013 at 12:00

ThinkJet · Accepted Answer · 2013-09-12 11:54:10Z

4

Not sure if entire code may be translated to native Oracle calls, but regarding initial question about string formatting resulting code may look like this:

create or replace function MyFunction(
  Zn     in number,
  Lzn    in varchar2,
  Sq     in varchar2,
  E1     in number,
  N1     in number,
  Digits in number
) 
return varchar2
as
  vRes varchar2(4000);
begin

  vRes := trim(to_char(Zn,'999999999999999999.00')) || LZn || Sq || 
          substr(trim(to_char(round(E1 - 100000 * trunc(E1/100000)),'999999999999999999.00000')), 1, Digits) || 
          substr(trim(to_char(round(N1 - 100000 * trunc(N1/100000)),'999999999999999999.00000')), 1, Digits) 
  ;

  return vRes;

end;

Google ;)

answered Sep 12, 2013 at 11:54

ThinkJet

6,76526 silver badges36 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

wittrup Over a year ago

Thank you. You got a few seconds ahead of me, I was about to answer my own question with something like: RT*M letmegooglethatforyou.com/?q=pl/sql+format+mask

ThinkJet Over a year ago

@writtrup Ok :) Note that number formats always return leading blank, so you need trim output.

wittrup Over a year ago

Complete code can be reviewed here: gis.stackexchange.com/questions/71387/… Thank you @ThinkJet

Collectives™ on Stack Overflow

Write delphi function in PL/SQL?

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related