Παρακάτω θα δούμε ένα πρόγραμμα στο 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 $ |
Κατάσταση:
1. Αρχικά, δηλώνουμε δύο διπλές μεταβλητές. Μια διπλή μεταβλητή ονομάζουμε εισόδημα και μία διπλή μεταβλητή ονομάζουμε φόρο.
Ελαφρύ εισόδημα ως διπλό
Dim tax As Double
2. Αρχικοποιούμε το μεταβλητό εισόδημα με την τιμή του κελιού Α2 και το στρογγυλοποιούμε.
εισόδημα = Γύρος (Εύρος ("A2"). Αξία)
3. Τοποθετούμε ξανά τη στρογγυλεμένη τιμή στο κελί Α2.
Εύρος ("A2"). Αξία = εισόδημα
4. Χρησιμοποιούμε τη δήλωση Select Case για τον υπολογισμό του φόρου επί ενός εισοδήματος. Το Excel VBA χρησιμοποιεί το εισόδημα για να δοκιμάσει κάθε επόμενη δήλωση περίπτωσης για να διαπιστώσει εάν πρέπει να εκτελεστεί ο κωδικός κάτω από τη δήλωση υπόθεσης.
Επιλέξτε Έσοδα υπόθεσης
Υπόθεση Is> = 180001
φόρος = 55850 + 0,45 * (εισόδημα - 180000)
Υπόθεση Is> = 80001
φόρος = 17850 + 0,38 * (εισόδημα - 80000)
Υπόθεση Is> = 35001
φόρος = 4350 + 0,3 * (εισόδημα - 35000)
Υπόθεση Is> = 6001
φόρος = 0,15 * (εισόδημα - 6000)
Case Else
φόρος = 0
Τέλος Επιλογή
Παράδειγμα: εάν το εισόδημα είναι 37000, ο φόρος ισούται με 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 $
5. Γράφουμε την τιμή του μεταβλητού φόρου στο κελί Β2.
Εύρος ("B2"). Αξία = φόρος
6. Τοποθετήστε αυτόν τον κωδικό σε ένα κουμπί εντολών και δοκιμάστε τον.
Αποτέλεσμα:
