Informatyka i ekonometria

Слайд 2

Cele prezentacji: Poznanie zagadnień: Funkcja VBA Instrukcja warunkowa If i instrukcja wyboru Select Case.

Cele prezentacji:

Poznanie zagadnień:
Funkcja VBA
Instrukcja warunkowa If i instrukcja wyboru Select Case.

Слайд 3

Polecenia do wykonania: 1. W edytorze VBA, w nowym module napisałam

Polecenia do wykonania:

1. W edytorze VBA, w nowym module napisałam funkcję

VBA o nagłówku:
Function lata_pracy(data As Date) As Integer
zwracającą wartość ilości przepracowanych lat obliczanych na podstawie różnicy lat pomiędzy rokiem bieżącym a rokiem, w którym pracownik został zatrudniony. Wykorzystałam funkcję Visual Basica Year(….) w arkuszu kalkulacyjnym i użyłam tej funkcji w odpowiedniej formule umieszczonej w kolumnie o nagłówku lata pracy.
Слайд 4

2. Napisałam funkcję VBA o podobnym nagłówku lecz nazwie lata_pracy1, która

2. Napisałam funkcję VBA o podobnym nagłówku lecz nazwie lata_pracy1, która

zwraca wartość ilości faktycznie przepracowanych lat obliczanych za pomocą funkcji WorksheetFunction.YearFrac. Zapoznałam się w pomocy Visual Basic z opisem tej funkcji. Użyłam funkcji Int do zaokrąglenia do części całkowitej wartości zwracanej przez funkcję YearFrac. W arkuszu kalkulacyjnym w kolumnie o nagłówku lata pracy zamień wywołanie funkcji lata_pracy na lata_pracy1.
Слайд 5

3. Napisałam funkcję VBA o nagłówku: Function Wysługa(lata As Integer, pensja

3. Napisałam funkcję VBA o nagłówku:
Function Wysługa(lata As Integer, pensja As

Currency) As Currency
której wynikiem jest wartość wysługi lat obliczonej wg formuły z treści zadania. W tym celu wykorzystałam składnię instrukcji If zastosowaną w przykładowej funkcji Podatek. Zastosowałam funkcję Wysługa w formule umieszczonej w kolumnie o nagłówku wysługa. Jako jeden argumentów przyjmij wartości znajdujące się w kolumnie lata pracy.