OpenOffice.info

Code: Alles auswählen

Option Explicit

Dim cSteuerlast As Currency
Dim oGrenzwerteAus As Object
Dim oSteuersaetzeAus as Object
Dim oBlattAus As Object
Dim oZelle as Object
Dim cValuta1 As Currency, cValuta2 As Currency


Function SpitzenSteuersatzAus(iJahr As Integer) As Single
Dim iBeginn As Integer,iZaehler as integer

oBlattAus = ThisComponent.Sheets.getByName("AusSteuer")
oSteuersaetzeAus = oBlattAus.getCellRangeByName("SaetzeAus")
iBeginn = oBlattAus.getCellRangeByName("BeginnAus").value
msgbox iBeginn
    Select Case iJahr
        Case Is < 2005
        	iZaehler = iJahr - iBeginn
        	msgbox iZaehler
            oZelle = oSteuersaetzeAus.getCellByPosition(9,4)
            SpitzenSteuersatzAus = oZelle.value
        Case Is >= 2005
            oZelle = oSteuersaetzeAus.getCellByPosition(iJahr - iBeginn, 3)
            SpitzenSteuersatzAus = oZelle.value
    End Select
Set oBlattAus = Nothing
Set oSteuersaetzeAus = Nothing
End Function