/ / / Τιμές φόρου στο Excel VBA

Τιμές φόρου στο Excel VBA

Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA που υπολογίζει το φόρο επί του εισοδήματος. Το ακόλουθο φορολογικοί δείκτες ισχύουν για τα άτομα που κατοικούν στην Αυστραλία.

Φορολογουμενο εισοδημα

Φόρος επί αυτού του εισοδήματος

0 - $ 6.000

Μηδέν

$ 6.001 - $ 35.000

15c για κάθε $ 1 πάνω από $ 6.000

$ 35.001 - $ 80.000

$ 4,350 συν 30c για κάθε $ 1 πάνω από $ 35,000

$ 80.001 - $ 180.000

$ 17.850 συν 38c για κάθε $ 1 πάνω από $ 80.000

$ 180.001 και παραπάνω

$ 55.850 συν 45c για κάθε $ 1 πάνω από $ 180.000


Κατάσταση:

Τιμές φόρου στο Excel VBA

1. Αρχικά, δηλώνουμε δύο διπλές μεταβλητές. Μια διπλή μεταβλητή που ονομάζουμε εισόδημα και μία διπλή μεταβλητή που ονομάζουμε φόρο.

Dim income As Double
Dim tax As Double

2. Αρχικοποιούμε το μεταβλητό εισόδημα με την τιμή του κυττάρου Α2 και το στρογγυλοποιούμε.

income = Round(Range("A2").Value)

3. Τοποθετούμε ξανά την κυκλική τιμή στο κελί Α2.

Range("A2").Value = income

4. Χρησιμοποιούμε τη δήλωση Select Case για να υπολογίσουμε τον φόρο επί του εισοδήματος. Το Excel VBA χρησιμοποιεί εισόδημα για να ελέγξει κάθε μεταγενέστερη δήλωση υποθέσεων για να διαπιστώσει αν πρέπει να εκτελεστεί ο κώδικας βάσει της δήλωσης περίπτωσης.

Select Case income
    Case Is >= 180001
        tax = 55850 + 0.45 * (income - 180000)
    Case Is >= 80001
        tax = 17850 + 0.38 * (income - 80000)
    Case Is >= 35001
        tax = 4350 + 0.3 * (income - 35000)
    Case Is >= 6001
        tax = 0.15 * (income - 6000)
    Case Else
        tax = 0
End Select

Παράδειγμα: εάν το εισόδημα είναι 37000, ο φόρος ισούται με 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 $

5. Γράφουμε την τιμή του μεταβλητού φόρου στο στοιχείο Β2.

Range("B2").Value = tax

6. Τοποθετήστε αυτόν τον κώδικα σε ένα κουμπί εντολής και δοκιμάστε το.

Αποτέλεσμα:

Αποτελέσματα φορολογικών συντελεστών

Επίσης διαβάστε: