Oversæt til dansk

Det skal oversættes til dansk!

Outputtet skal altså være på dansk!

<%

Function CountDown(dTargetDate, dTargetTime, sEventName)
    DIM D1, D2, T1, T2, Years, Months, Days, Hours, Minutes, Temp, since
   
    D2 = DateValue(dTargetDate)
    T2 = TimeValue(dTargetTime)

    If (D2 < Date) Then
        since = TRUE
        D1 = DateValue(dTargetDate)
        D2 = Date
        T1 = TimeValue(dTargetTime)
        T2 = Time
    Else
        since = FALSE
        D1 = Date
        T1 = Time
    End If

    Years = Year(D2) - Year(D1)
    Months = Month(D2) - Month(D1)
    Days = Day(D2) - Day(D1)

    Hours = Hour(T2) - Hour(T1)
    Minutes = Minute(T2) - Minute(T1)

    If (Months < 0) Then
        Months = Months + 12
        Years = Years - 1
    End If

    If (Days < 0) Then
        Days = Days + DaysIn(Month(D1))
        Months = Months - 1
    End If

    If (Hours < 0) Then
        Hours = Hours + 24
        Days = Days - 1
    End If

    If (Minutes < 0) Then
        Minutes = Minutes + 60
        Hours = Hours - 1
    End If

    Temp = \"\"

    If (Years <> 0) Then
        Temp = Temp & Years
        If (Years = 1) Then
            Temp = Temp & \" år \"
        Else
            Temp = Temp & \" år \"
        End If
    End If
    If (Months <> 0) Then
        Temp = Temp & Months
        If (Months = 1) Then
            Temp = Temp & \" måned \"
        Else
            Temp = Temp & \" måneder \"
        End If
    End If
    If (Days <> 0) Then
        Temp = Temp & Days
        If (Days = 1) Then
            Temp = Temp & \" dag \"
        Else
            Temp = Temp & \" dage \"
        End If
    End If
    If (Hours <> 0) Then
        Temp = Temp & Hours
        If (Hours = 1) Then
            Temp = Temp & \" time \"
        Else
            Temp = Temp & \" timer \"
        End If
    End If
    If (Minutes <> 0) Then
        If (Temp <> \"\") Then Temp = Temp & \" and \"
        Temp = Temp & Minutes
        If (Minutes = 1) Then
            Temp = Temp & \" minut \"
        Else
            Temp = Temp & \" minutter \"
        End If
    End If
    If (Since) Then
        Temp = \"Det er \" & temp & \" siden \" & sEventName
    Else
        Temp = \"Der er \" & temp & \" til \" & sEventName
    End If

    Countdown = Temp
End Function

Function DaysIn(MonthNum)
    Select Case MonthNum
        Case 1  DaysIn = 31 \'jan
        Case 2  DaysIn = 28 \'feb
        Case 3  DaysIn = 31 \'mar
        Case 4  DaysIn = 30 \'apr
        Case 5  DaysIn = 31 \'maj
        Case 6  DaysIn = 30 \'jun
        Case 7  DaysIn = 31 \'jul
        Case 8  DaysIn = 31 \'aug
        Case 9  DaysIn = 30 \'sep
        Case 10 DaysIn = 31 \'okt
        Case 11 DaysIn = 30 \'nov
        Case 12 DaysIn = 31 \'dec
    End Select
End Function
%>
Jeg tror jeg at fået det hele med

Tak! :)

selv tak, det var så lidt.