datediff function

[lior03]

hello
i am trying to use a select case statment with a datediff function:
Function dayDiff(dte1 As Date, dte2 As Date, basis)
Select Case basis
Case ww
dayDiff = DateDiff("ww", dte1, dte2)
Case d
dayDiff = DateDiff("d", dte1, dte2)
Case m
dayDiff = DateDiff("m", dte1, dte2)
Case q
dayDiff = DateDiff("q", dte1, dte2)
End Select
End Function
what went wrong?
thanks
moshe

[Bob Phillips]

hello
i am trying to use a select case statment with a datediff function:
Function dayDiff(dte1 As Date, dte2 As Date, basis)
Select Case basis
Case ww
dayDiff = DateDiff("ww", dte1, dte2)
Case d
dayDiff = DateDiff("d", dte1, dte2)
Case m
dayDiff = DateDiff("m", dte1, dte2)
Case q
dayDiff = DateDiff("q", dte1, dte2)
End Select
End Function
what went wrong?
thanks
moshe

[vba]
Function dayDiff(dte1 As Date, dte2 As Date, basis)
Select Case basis
Case "ww"
dayDiff = DateDiff("ww", dte1, dte2)
Case "d"
dayDiff = DateDiff("d", dte1, dte2)
Case "m"
dayDiff = DateDiff("m", dte1, dte2)
Case "q"
dayDiff = DateDiff("q", dte1, dte2)
End Select
End Function
[/vba]

[geekgirlau]

Couldn't you just do

[VBA]Function dayDiff(dte1 As Date, dte2 As Date, basis)
dayDiff = DateDiff(basis, dte1, dte2)
End Function[/VBA]

??