funktion med dato

jeg har følgende funktion, der skal give mig antallet af dage der er gået i året i % af alle dage i året. Men den virker ikke, hvad er der galt?:

Function ForbrugsprocentDato() As Integer
    Dim Dato0101 As Date
    Dim DageSiden As Integer
    Dim DageIÅret As Integer
    Dim Dato3112 As Date
   
        Dato0101 = "01-01-" & Year(Date)
        Dato3112 = "31-12-" & Year(Date)
        DageSiden = DateDiff("d", Dato0101, Date)
        DageIÅret = DateDiff("d", Dato0101, Dato3112)
        ForbrugsprocentDato = 100 * Int(DageSiden) / Int(DageIÅret)
End Function