korrekt function??

Vill bara försäkra mig att denna är korrekt, ser den ut att vara det?

Private Function get_Month(Byval Current_date, Byval Mathvalue)
Dim Current_month
    If Len(Current_date) = 0 Or Not isDate(Current_date) Then
    Current_date = Date()
    Else
    Current_date = CDate(Current_date)
    End If
    Current_date = Dateserial(Year(Current_date), Datepart("M", Current_date, 2)+Mathvalue, "1")
	Current_month = DatePart("M", Current_date, 2)
get_Month = Current_month
End Function

'Ex. visar 5 månader tillbaka
response.write get_Month(Request.QueryString("Current_date"),-5)

Den skulle kunna vara rätt...

Jag undrar bara varför inte använda DateAdd()?

Förutom att den inte kan vara Private utanför en class.

Jag undrar bara varför inte använda DateAdd()?

:x Jahapp! Då var man där igen då, koda först och tänka sen.
Tack för att du får mig på rätt spår igen!

Förutom att den inte kan vara Private utanför en class.

Den ligger i en class :)