Where's the bug?

J

Jim May

with 3/15/04 (formated date) in Cell B5
and =Spdate(B5) in D5 -- results -->> #VALUE! 'Help

Function SpDate(MyDate As Date) As String
Dim MYr As String
Dim MWk As String
Dim MDy As String
MYr = Year(MyDate)
MWk = Round((MyDate - DateSerial(Year(MyDate), 1, 1)) / 7, 0)
MDy = Day(MyDate)
SpDate = "MYr&" / "&MWk&" / "&MDy"
End Function
 
B

Bob Phillips

You are treating it like worksheet functions Jim.

The last line should not be in quotes

Function SpDate(MyDate As Date) As String
Dim MYr As String
Dim MWk As String
Dim MDy As String
MYr = Year(MyDate)
MWk = Round((MyDate - DateSerial(Year(MyDate), 1, 1)) / 7, 0)
MDy = Day(MyDate)
SpDate = MYr & " / " & MWk & " / " & MDy
End Function


--

HTH

RP
(remove nothere from the email address if mailing direct)
 
Top