Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Where's the bug?
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 |
#2
|
|||
|
|||
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) "Jim May" wrote in message news:JkImd.1120$wC.939@lakeread08... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|