Międzynarodowy Bank Pollinu: wersja demonstracyjna 🤑

[Sheldon Anszlus Robingren]

Ostatnia wiadomość z poprzedniej strony wątku

Ciekawość mnie zżera, jak zamieniacie kwotę przelewu na słowną wartość?
Różne rzeczy człowiek widział, więc ciekawi mnie to. :D

[Franklin Garamond]

A mnie — dlaczego kwot słownie nie ma na kwitku!?

[Helwetyk Romański]

Ciekawość mnie zżera, jak zamieniacie kwotę przelewu na słowną wartość?

Znalazłem paskudnego gotowca w Internecie, do którego dodałem swoją cegiełkę z rodzajami gramatycznymi:

Kod: Zaznacz cały

function policz($l,$t1,$t2,$t3,$rodzaj) {
  $j = array("", "jeden ", "dwa ", "trzy ", "cztery ", "pięć ", "sześć ",
    "siedem ", "osiem ", "dziewięć ", "dziesięć ", "jedenaście ",
    "dwanaście ", "trzynaście ", "czternaście ", "piętnaście ",
    "szesnaście ", "siedemnaście ", "osiemnaście ", "dziewiętnaście ");
  $j2 = array("", "jedna ", "dwie ", "trzy ", "cztery ", "pięć ", "sześć ",
    "siedem ", "osiem ", "dziewięć ", "dziesięć ", "jedenaście ",
    "dwanaście ", "trzynaście ", "czternaście ", "piętnaście ",
    "szesnaście ", "siedemnaście ", "osiemnaście ", "dziewiętnaście ");
  $j3 = array("", "jedno ", "dwa ", "trzy ", "cztery ", "pięć ", "sześć ",
    "siedem ", "osiem ", "dziewięć ", "dziesięć ", "jedenaście ",
    "dwanaście ", "trzynaście ", "czternaście ", "piętnaście ",
    "szesnaście ", "siedemnaście ", "osiemnaście ", "dziewiętnaście ");

  if($rodzaj == 2) { $j = $j2; }
  if($rodzaj == 3) { $j = $j3; }

  $d = array("", "", "dwadzieścia ", "trzydzieści ", "czterdzieści ",
    "pięćdziesiąt ", "sześćdziesiąt ", "siedemdziesiąt ",
    "osiemdziesiąt ", "dziewięćdziesiąt ");
  $s = array("","sto ", "dwieście ", "trzysta ", "czterysta ", "pięćset ",
    "sześćset ", "siedemset ", "osiemset ", "dziewięćset ");

  $txt = $s[0+substr($l,0,1)];
  if (substr($l,1,2)<20) $txt .= $j[0+substr($l,1,2)];
  else $txt .= $d[0+substr($l, 1,1)].$j[0+substr($l, 2,1)];
  if ($l==1) $txt .= "$t1 "; else {
    if ((substr($l,2,1)==2 or substr($l,2,1)==3 or substr($l,2,1)==4)
    and (substr($l,1,2)>20 or substr($l,1,2)<10))
    $txt .= "$t2 "; else $txt .= "$t3 ";
  }
  return $txt;
}

function slownie($liczba, $waluta_slownie) {
$waluta_slownie = json_decode($waluta_slownie, true);

if($waluta_slownie[6] == 2) $rodzaj_podstawy = 2; 
if($waluta_slownie[6] == 3) $rodzaj_podstawy = 3; 
if($waluta_slownie[7] == 2) $rodzaj_czesci = 2; 
if($waluta_slownie[7] == 3) $rodzaj_czesci = 3; 

  $liczba = str_replace(",", ".", $liczba);
  $liczba = number_format($liczba, 2, ",", "");
  $kwota=explode(",", $liczba);
  $kwotazl=sprintf("%012d",$kwota[0]);
  $kwotagr=sprintf("%03d",$kwota[1]);
  if ($kwotazl>999999999) $txt .= policz(substr($kwotazl, 0,3),"miliard","miliardy","miliardów",$rodzaj_podstawy);
  if ($kwotazl>999999) $txt .= policz(substr($kwotazl, 3,3),"milion","miliony","milionów",$rodzaj_podstawy);
  if ($kwotazl>999) $txt .= policz(substr($kwotazl, 6,3),"tysiąc","tysiące","tysięcy",$rodzaj_podstawy);
  if ($kwotazl>0) $txt .= policz(substr($kwotazl, 9,3),$waluta_slownie[0],$waluta_slownie[1],$waluta_slownie[2],$rodzaj_podstawy);
  if ($kwotazl==0) $txt="zero ".$waluta_slownie[2];
  $txt .= " i ";
  if($kwotagr!=='000')
  {
  $txt .= policz($kwotagr,$waluta_slownie[3],$waluta_slownie[4],$waluta_slownie[5],$rodzaj_czesci);
  }
  if ($kwotagr==0) $txt .= "zero ".$waluta_slownie[5];
  return $txt;
}

Przykładowy JSON:

Kod: Zaznacz cały

["korona","korony","koron","rubel","ruble","rubli",2,1]
["lir","liry","lirów","centesimo","centesimy","centesimów",1,3]

Korzystając z okazji, dziękuję uprzejmie. Jak się okazuje, w MBP można było otrzymać przelew wartości 0,00 ♇, trzeba się było tylko postarać. 🤣

A mnie — dlaczego kwot słownie nie ma na kwitku!?

W momencie, w którym trzeba byłoby umieścić dwa zapisy słowne, okazał się to niefortunny pomysł. 😜

[Sheldon Anszlus Robingren]

Ciekawość mnie zżera, jak zamieniacie kwotę przelewu na słowną wartość?

Znalazłem paskudnego gotowca w Internecie, do którego dodałem swoją cegiełkę z rodzajami gramatycznymi:

Kod: Zaznacz cały

function policz($l,$t1,$t2,$t3,$rodzaj) {
  $j = array("", "jeden ", "dwa ", "trzy ", "cztery ", "pięć ", "sześć ",
    "siedem ", "osiem ", "dziewięć ", "dziesięć ", "jedenaście ",
    "dwanaście ", "trzynaście ", "czternaście ", "piętnaście ",
    "szesnaście ", "siedemnaście ", "osiemnaście ", "dziewiętnaście ");
  $j2 = array("", "jedna ", "dwie ", "trzy ", "cztery ", "pięć ", "sześć ",
    "siedem ", "osiem ", "dziewięć ", "dziesięć ", "jedenaście ",
    "dwanaście ", "trzynaście ", "czternaście ", "piętnaście ",
    "szesnaście ", "siedemnaście ", "osiemnaście ", "dziewiętnaście ");
  $j3 = array("", "jedno ", "dwa ", "trzy ", "cztery ", "pięć ", "sześć ",
    "siedem ", "osiem ", "dziewięć ", "dziesięć ", "jedenaście ",
    "dwanaście ", "trzynaście ", "czternaście ", "piętnaście ",
    "szesnaście ", "siedemnaście ", "osiemnaście ", "dziewiętnaście ");

  if($rodzaj == 2) { $j = $j2; }
  if($rodzaj == 3) { $j = $j3; }

  $d = array("", "", "dwadzieścia ", "trzydzieści ", "czterdzieści ",
    "pięćdziesiąt ", "sześćdziesiąt ", "siedemdziesiąt ",
    "osiemdziesiąt ", "dziewięćdziesiąt ");
  $s = array("","sto ", "dwieście ", "trzysta ", "czterysta ", "pięćset ",
    "sześćset ", "siedemset ", "osiemset ", "dziewięćset ");

  $txt = $s[0+substr($l,0,1)];
  if (substr($l,1,2)<20) $txt .= $j[0+substr($l,1,2)];
  else $txt .= $d[0+substr($l, 1,1)].$j[0+substr($l, 2,1)];
  if ($l==1) $txt .= "$t1 "; else {
    if ((substr($l,2,1)==2 or substr($l,2,1)==3 or substr($l,2,1)==4)
    and (substr($l,1,2)>20 or substr($l,1,2)<10))
    $txt .= "$t2 "; else $txt .= "$t3 ";
  }
  return $txt;
}

function slownie($liczba, $waluta_slownie) {
$waluta_slownie = json_decode($waluta_slownie, true);

if($waluta_slownie[6] == 2) $rodzaj_podstawy = 2; 
if($waluta_slownie[6] == 3) $rodzaj_podstawy = 3; 
if($waluta_slownie[7] == 2) $rodzaj_czesci = 2; 
if($waluta_slownie[7] == 3) $rodzaj_czesci = 3; 

  $liczba = str_replace(",", ".", $liczba);
  $liczba = number_format($liczba, 2, ",", "");
  $kwota=explode(",", $liczba);
  $kwotazl=sprintf("%012d",$kwota[0]);
  $kwotagr=sprintf("%03d",$kwota[1]);
  if ($kwotazl>999999999) $txt .= policz(substr($kwotazl, 0,3),"miliard","miliardy","miliardów",$rodzaj_podstawy);
  if ($kwotazl>999999) $txt .= policz(substr($kwotazl, 3,3),"milion","miliony","milionów",$rodzaj_podstawy);
  if ($kwotazl>999) $txt .= policz(substr($kwotazl, 6,3),"tysiąc","tysiące","tysięcy",$rodzaj_podstawy);
  if ($kwotazl>0) $txt .= policz(substr($kwotazl, 9,3),$waluta_slownie[0],$waluta_slownie[1],$waluta_slownie[2],$rodzaj_podstawy);
  if ($kwotazl==0) $txt="zero ".$waluta_slownie[2];
  $txt .= " i ";
  if($kwotagr!=='000')
  {
  $txt .= policz($kwotagr,$waluta_slownie[3],$waluta_slownie[4],$waluta_slownie[5],$rodzaj_czesci);
  }
  if ($kwotagr==0) $txt .= "zero ".$waluta_slownie[5];
  return $txt;
}

Przykładowy JSON:

Kod: Zaznacz cały

["korona","korony","koron","rubel","ruble","rubli",2,1]
["lir","liry","lirów","centesimo","centesimy","centesimów",1,3]

Korzystając z okazji, dziękuję uprzejmie. Jak się okazuje, w MBP można było otrzymać przelew wartości 0,00 ♇, trzeba się było tylko postarać. 🤣

A mnie — dlaczego kwot słownie nie ma na kwitku!?

W momencie, w którym trzeba byłoby umieścić dwa zapisy słowne, okazał się to niefortunny pomysł. 😜

Tak naprawdę liczyłem, że może jakoś numberFormatera ogrnales, żeby odmieniał polskie na jedna/jeden

Kod: Zaznacz cały

$numberFormater = new NumberFormatter("pl", NumberFormatter::SPELLOUT);
echo $numberFormater->format(10204738571);

[Helwetyk Romański]

Tak naprawdę liczyłem, że może jakoś numberFormatera ogrnales, żeby odmieniał polskie na jedna/jeden

Kod: Zaznacz cały

$numberFormater = new NumberFormatter("pl", NumberFormatter::SPELLOUT);
echo $numberFormater->format(10204738571);

Takie eleganckie rozwiązanie byłoby dobre, gdyby nie nazwy walut. Do deklinacji mam, co prawda, osobną funkcję w innych systemach, jeszcze autorstwa Jaśnie Oświeconego diuka Kwaziego:

Kod: Zaznacz cały

function Declension($number, $one, $two_four, $five_or_more)
{
	if ($number == 1) return $one;

	$jedn = $number%10;
	$dzies = $number%100 - $jedn;

	if ($dzies != 10 && $jedn > 1 && $jedn < 5) return $two_four;
	
	return $five_or_more;
}

— ale po co sklejać, skoro można użyć brzydkiego (tak, nawet mnie te użyte funkcje bolą straszliwie), za to praktycznie gotowego rozwiązania. 😜

[Samuel Radziwiłł]

Mam nadzieję, że piszę we właściwym wątku. Dyskusja o przystąpieniu RON do MBP utknęła bez podjęcia konkretnej decyzji. Z owej dyskusji wynikło, że chcemy pozostawić naszą forumową formę bankowości, ale wejść do MBP, by mieć możliwości takie jak np. wypłaty nagród za Turniej Rycerski czy inne podobne ewenty. Czy jest tak może być?

[Helwetyk Romański]

Mam nadzieję, że piszę we właściwym wątku. Dyskusja o przystąpieniu RON do MBP utknęła bez podjęcia konkretnej decyzji. Z owej dyskusji wynikło, że chcemy pozostawić naszą forumową formę bankowości, ale wejść do MBP, by mieć możliwości takie jak np. wypłaty nagród za Turniej Rycerski czy inne podobne ewenty. Czy jest tak może być?

Najzupełniej. Przy czym — państwo powinno zapewnić możliwość wymiany środków z Systemu Skarbowego/Banku Książęcego na środki w MBP oraz środków z MBP na środki w Systemie Skarbowym/Banku Książęcym.

Chodzi nam o możliwość wspólnej zabawy w jak najszerszym gronie, więc zasady i kurs wymiany powinny być tak ustalone, aby ktoś z RON, kto chce się pobawić w Edelweissie, miał taką faktyczną możliwość; i w drugą stronę, aby ktoś z Edelweissu, kto chciałby nabyć majątek w RON, mógł to uczynić.

Mam świadomość tego, że na niektórych rachunkach w RON operuje się milionami, więc — być może — jakichś ograniczeń kwotowych nie da się uniknąć. W tym już głowa Podskarbiego lub Sejmu, żeby tak określili zasady, żeby „było dobrze”. 😉

[Samuel Radziwiłł]

Podrzuciłem propozycje zrobienia "denominacji" dotychczasowych Denarów na "nowe" Czerwone Dukaty/Złote. Teraz tylko czekać na jakikolwiek odzew, bo po cichu liczę, że posiadając majątek w RON, będę mógł go wykorzystać np. w MAW lub innej mikronacji.

[Helwetyk Romański]

Teraz tylko czekać na jakikolwiek odzew, bo po cichu liczę, że posiadając majątek w RON, będę mógł go wykorzystać np. w MAW lub innej mikronacji.

Mocno trzymam kciuki za pomyślne dołączenie RON do MBP. 🤞🏻

Jeżeli jednak chodzi o MAW, temat się zupełnie nie przyjął, więc…

[Ignats ik Ruth]

Jeżeli jednak chodzi o MAW, temat się zupełnie nie przyjął, więc…

Bo to jest MAWrtwa, a co najmniej nieRMAWa (he, he) mikronacja.

[Benjamin]

Żebym dobrze zrozumiał. Tak oblicza się dzienne wynagrodzenie za wypowiedzi na forum?

x = 0,5[10(√n)]

Przy czym n to liczba wypowiedzi z danego dnia, a x to wynagrodzenie otrzymywane przez mieszkańca i państwo.