Date Matters 2

[dhaveedh]

Can anyone tell me what is wrong with this?

I am trying to get the date of Last sunday


Function getLastSunday()

Dim dDate As String

dDate = Format(Date, "dddd")

Do Until Format(dDate, "dddd") = "Sunday"

dDate = Date - 1

Loop

getLastSunday = dDate

End Function

Help appreciated

KISS - Keep It Simple Sugar!

 

[SkipVought]

Hi,

Function getLastSunday()

    Dim dDate As Date
    
    dDate = Now
    
    Do Until Format(dDate, "dddd") = "Sunday"
    
    dDate = dDate - 1
     
    Loop
        
    getLastSunday = dDate
    
End Function

Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[Golom]

You have set "dDate" as a string but you are attempting to compute "dDate = Date - 1" which is a numeric value.

Or ... in one line
[tt]
getLastSunday = DateAdd ("d", -(WeekDay(Date())-vbSunday), Date())
[/tt]

 

[BobJacksonNCI]

Or:

Date() - WeekDay(Date()) + 1

HTH,
Bob