*******************************************************************************
CREATE OR REPLACE
FUNCTION           MINUTENTOSALDO(parmInt number) return varchar2
is
  returnValue varchar2(10);
  vrz varchar2(1);
begin
  if (parmInt<0)
  then
    vrz:='-';
  else
    vrz:=' ';
  end if;
  returnValue:=ltrim(to_char(abs(trunc((parmInt)/60)),'9900'));
  returnValue:=returnValue||':';
  returnValue:=returnValue||ltrim(to_char(abs(mod((parmInt),60)),'00'));
  if (returnValue=':')
  then
    return '  0:00 ';
  else
    return lpad(returnValue||vrz,7,' ');
  end if;
end;

*******************************************************************************
CREATE OR REPLACE
FUNCTION MINUTENTO7744SAL(parmInt number) return varchar2
is
  returnValue varchar2(10);
  vrz varchar2(1);
begin
  if (parmInt<0)
  then
    vrz:='-';
  else
    vrz:='+';
  end if;
  returnValue:=ltrim(to_char(abs(trunc((parmInt)/60)),'9990'));
  returnValue:=returnValue||':';
  returnValue:=returnValue||ltrim(to_char(abs(mod((parmInt),60)),'00'));
  if (returnValue=':')
  then
    return '   0:00';
  else
    return vrz||lpad(returnValue,6,' ');
  end if;
end;

*******************************************************************************
CREATE OR REPLACE
function TageToUrlaub(parmInt number) return varchar2
is
  returnValue varchar2(10);
  vrz varchar2(1);
begin
  if (parmInt<0)
  then
    vrz:='-';
  else
    vrz:=' ';
  end if;
  returnValue:=ltrim(to_char(abs(trunc(parmInt)), '990'))||','||ltrim(to_char(abs((parmInt - trunc(parmInt)) * 100), '00'));
  if (returnValue=',')
  then
    return '  0,00 ';
  else
    return lpad(returnValue||vrz,7,' ');
  end if;
end;

*******************************************************************************
CREATE OR REPLACE
function TageTo7744Url(parmInt number) return varchar2
is
  returnValue varchar2(10);
  vrz varchar2(1);
begin
  if (parmInt<0)
  then
    vrz:='-';
  else
    vrz:='+';
  end if;
  returnValue:=ltrim(to_char(abs(trunc(parmInt)), '990'));
  if (returnValue='')
  then
    return '+ 0';
  else
    return vrz||lpad(returnValue,2,' ');
  end if;
end;