Zdravím, vytvářím kód k formuláři, kde by se měla vypočítat tzv. bonita k úvěru, jestli by byl úvěr schválen či neschválen. Po kliknutí na tlačíko "VYHODNOTIT"...1) by se měla vypočítat měsíční splátka z (měsíční příjem / počet měsíců, které chce klient splácet)2) pak by se zbytek Kč, kolik klientovi zbude měl vypočítat z (měsíční příjem - celkové měsíční výdaje - životní minimum (8500Kč))3) Následná podmínka by měla podle Zbytku (peníze, které klientovi zůstaly) poznat, zda bude mít peníze na to, splácet měsíční splátku (Výše splátky).... jenže mi to pořád hází chybu "Division by zero", dělení nulou, přitom by se po zadání čísel nulou vůbec nemělo dělit, PROSÍM O POMOC :(((Private Sub btnVyhodnotit_Click()Dim intVydaje As IntegerDim intZivMin As IntegerDim intMesPrijem As IntegerDim intMesVydaje As IntegerDim intZbytek As IntegerDim intPocetSpl As IntegerDim intVyse As IntegerDim intVyseSplatky As CurrencyDim intVystup As IntegerintZivMin = 8500txtVyse.Value = intVysetxtPocetSpl.Value = intPocetSpltxtMesPrijem.Value = intMesPrijemtxtMesVydaje.Value = intMesVydajeintVyseSplatky = intVyse \ intPocetSplintZbytek = intMesPrijem - intMesVydaje - intZivMinIf intZbytek > intVyseSplatky ThentxtVysledek.Value = "SCHVÁLENO"ElsetxtVysledek.Value = "NESCHVÁLENO"End IfEnd Sub
