my $wert = Math::BigFloat->new($konto.'131400');
return sprintf('%02d',98 - ($wert->bmod(97)));