VB - Einkommensteuer 2008 EKST

' Heiko Franke Dipl. Wirtschaftsinformatiker /FH
' h.franke@wirtschaftssoft.de

Public Class Form1
    Function ekst_2008(ByVal b6 As Double)
        Dim b7 As Double
        Dim b8 As Double
        Dim st As Double

        b7 = (b6 - 7664) / 10000.0

        If b6 > 12739.0 Then b8 = ((b6 - 12739.0) / 10000.0)

        If b6 > 7664.0 Then st = (883.74 * b7 + 1500.0) * b7

        If b6 > 12739.0 Then st = (228.74 * b8 + 2397.0) * b8 + 989.0
        If b6 > 52151.0 Then st = ((0.45 * b6) - 7914.0)
        If b6 > 250000.99 Then st = ((0.45 * b6) - 1541.0)

        Return st
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show(ekst_2008(3600))
    End Sub
End Class