Public Function MySum(a As Integer, b As Integer)
Result = a + b
MySum = Result
End Function
*Function place in module
Function Iban()
nr = "175000094790980919624099"
x = 98 - CLng(CStr(CLng(CStr((CLng(CStr(CLng(CStr(CLng(Left(nr, 5)) Mod 97) & Mid(nr, 6, 5)) Mod 97) & Mid(nr, 11, 7)) Mod 97) & Right(nr, 7)) Mod 97) & "252100")) Mod 97
Iban = x
Debug.Print x
End Function
W trosce o komfort korzystania z naszego serwisu chcemy dostarczaÄÂĂ Ci coraz lepsze usĂĹĄĂÂugi. By mĂÂÄšÂc to robiÄÂĂ prosimy, abyĂĹĄĂ wyraziĂĹĄĂ zgodÄÂĂ na dopasowanie treĂĹĄĂÂci marketingowych do Twoich zachowaĂĹĄĂ w serwisie. Zgoda ta pozwoli nam czÄÂĂÂĂĹĄĂÂciowo finansowaÄÂĂ rozwĂÂÄšÂj ĂĹĄĂÂwiadczonych usĂĹĄĂÂug.
PamiÄÂĂÂtaj, ĂĹĄÄšĹe dbamy o TwojÄÂĂ prywatnoĂĹĄĂÂÄÂĂÂ. Nie zwiÄÂĂÂkszamy zakresu naszych uprawnieĂĹĄĂ bez Twojej zgody. Zadbamy rĂÂÄšÂwnieÝ̊o bezpieczeĂĹĄĂÂstwo Twoich danych. WyraĂĹĄÄšĹonÄÂĂ zgodÄÂĂ moĂĹĄÄšĹesz cofnÄÂĂ ÄÂĂ w kaĂĹĄÄšĹdej chwili.