GODZINY

Option Explicit

Sub zad2()

Dim czas As Single

Dim opłata As Single

Dim stawka As Single

Worksheets("Dane").Select

On Error GoTo koniec

stawka = Range("b1")

czas = InputBox(prompt:="Podaj czas przejazdu:", Title:="Podróż")

Range("b3") = czas

If czas <= 0 Then GoTo koniec

If czas >= 8 And czas <= 12 Then opłata = stawka / 2

If czas > 12 Then opłata = stawka

MsgBox "Opłata wynosi [zł]:" & opłata

Range("b4") = opłata

Exit Sub

koniec:

MsgBox "Błąd danych!"

End Sub

PARKOWANIE

Option Explicit

Sub zadanie()

Dim opłata As Single

Dim czas_parkowania As Single

Dim stawka_1 As Single

Dim stawka_2 As Single

On Error GoTo koniec

Worksheets("Dane").Select

stawka_1 = Range("b1")

stawka_2 = Range("b2")

czas_parkowania = InputBox(prompt:="Podaj ilość godzin:", Title:="Godziny")

Range("b4") = czas_parkowania

If czas_parkowania <= 0 Then GoTo koniec

If czas_parkowania = 1 Then opłata = stawka_1

Range("b5") = opłata

If czas_parkowania > 1 Then opłata = stawka_1 + (czas_parkowania - 1) * stawka_2

Range("b5") = opłata

MsgBox "Opłata wynosi:" & opłata

Exit Sub

koniec:

MsgBox "Błąd danych!"

End Sub

TONAŻ

Option Explicit

Sub zad1()

Dim masa As Single

Dim opłata As Single

Dim stawka_1 As Single

Dim stawka_2 As Single

Dim stawka_3 As Single

Worksheets("Dane").Select

On Error GoTo koniec

stawka_1 = Range("b1")

stawka_2 = Range("b2")

stawka_3 = Range("b3")

masa = InputBox(prompt:="Podaj masę samochodu:", Title:="Masa")

Range("b5") = masa

If masa <= 0 Then GoTo koniec

If masa < 1.5 Then opłata = stawka_1

If masa >= 1.5 And masa <= 5 Then opłata = stawka_2

If masa > 5 Then opłata = stawka_3

MsgBox "Opłata wynosi [zł]:" & opłata

Range("b6") = opłata

Exit Sub

koniec:

MsgBox "Błąd danych!"