1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33

create or replace function TO_NUMBER_EX (sNumber in varchar2) return number is
---------------------------------------------------------------------
--  Преобразование  строки в число с разными символами разделителями
---------------------------------------------------------------------
  iRet number(12,3) :=0;
  cReplSgn char(1);
  cToReplSgn char(1);
begin
   begin
     iRet := to_number(sNumber);
   exception
     when OTHERS then
       iRet := null;
   end;

   if iRet is null then
     begin
       if instr(sNumber,'.') > 0 then
         cReplSgn := '.';
         cToReplSgn := ',';
       else
         cReplSgn := ',';
         cToReplSgn := '.';
       end if;
       iRet :=  to_number(replace(sNumber,cReplSgn,cToReplSgn));
     exception
       when OTHERS then
         iRet := null;
     end;
   end if;

   return(nvl(iRet,0));
end TO_NUMBER_EX;