num2cur.m

function str = num2cur(N)
% Number to currency string
% Author: Milos Petrasinovic <mpetrasinovic@prdc.rs>
% PR-DC, Republic of Serbia
% info@pr-dc.com
% ----- INPUTS -----
% N - number
% ----- OUTPUTS -----
% str - number as formated currency string
% --------------------
%
% Copyright (C) 2021 PR-DC <info@pr-dc.com>
% 
% This program is free software: you can redistribute it and/or modify
% it under the terms of the GNU Lesser General Public License as 
% published by the Free Software Foundation, either version 3 of the 
% License, or (at your option) any later version.
%  
% This program is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
% GNU Lesser General Public License for more details.
%  
% You should have received a copy of the GNU Lesser General Public License
% along with this program.  If not, see <https://www.gnu.org/licenses/>.
%
% --------------------

for i = 1:length(N)
  S = sprintf('%.2f', N(i));
  S(2, length(S) - 6:-3:1) = ',';
  S = transpose(S(S ~= char(0)));
  str{i} = S;
end
if(length(N) == 1)
  str = str{1};
end
end