PDA

View Full Version : datediff function



lior03
11-08-2005, 11:21 PM
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
11-09-2005, 02:25 AM
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


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

geekgirlau
11-09-2005, 03:18 AM
Couldn't you just do

Function dayDiff(dte1 As Date, dte2 As Date, basis)
dayDiff = DateDiff(basis, dte1, dte2)
End Function

??