X

VBA Site contains VBA code to create macros in WORD EXCEL ACCESS OUTLOOK

 

Functions

 

Public Function MySum(a As Integer, b As Integer)

Result = a + b

MySum = Result

End Function

 

 

*Function place in module

 

checksum for iban

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



Dodaj komentarz






Dodaj

© 2013-2025 PRV.pl
Strona została stworzona kreatorem stron w serwisie PRV.pl

Drogi uĚźytkowniku!

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.

 Tak, zgadzam się na nadanie mi "cookie" i korzystanie z danych przez Administratora Serwisu i jego partnerĂłw w celu dopasowania treści do moich potrzeb. Przeczytałem(am) Politykę prywatności. Rozumiem ją i akceptuję.

 Tak, zgadzam się na przetwarzanie moich danych osobowych przez Administratora Serwisu i jego partnerĂłw w celu personalizowania wyświetlanych mi reklam i dostosowania do mnie prezentowanych treści marketingowych. Przeczytałem(am) Politykę prywatności. Rozumiem ją i akceptuję.

Wyrażenie powyższych zgód jest dobrowolne i możesz je w dowolnym momencie wycofać poprzez opcję: "Twoje zgody", dostępnej w prawym, dolnym rogu strony lub poprzez usunięcie "cookies" w swojej przeglądarce dla powyżej strony, z tym, że wycofanie zgody nie będzie miało wpływu na zgodność z prawem przetwarzania na podstawie zgody, przed jej wycofaniem.