Date Question - Visual Basic 6.0

[Danielvb]

Hello programmers:

Please I need help.

-- I am writing a process in which SUNDAY is the first day of the week

-- I need to dectect the beginning of the last week. For example:

a) 11/25/2002 (SUN) - 11/30/2002 (SAT). This is my last week

b) 12/02/2002 is the current date

I need to detect the firts day of the last week and add the date (mm/dd/yy) into an array. I am need to add only the Seven days.


Can somebody help me how to acompllish this task.

Thanks to all for your time

[SergioV]

Hi !

Hope this helps at least as a starting point :

For i = 1 To -7 Step -1
    If WeekDay ( Date + i )= 1 Then    ' 1 = Sunday... 7 = Saturday
        Text1 = Date + i ' Store in Text Box for you to move it somewhere else
        Debug.Print Date + i ; " was Last Sunday"
        End If
    Next i

[SergioV]

I was thinking about my own problems moving day by day for some specific reasons ( I do some "time measuring" with very special behaviours ).

If all you need is last Sunday you could use this one :

Text1 = Date - WeekDay ( Date ) + 1

and if needed some Sundays before ( or after ) you can just subtract ( or add ) 7, 14, etc. in a loop as long as you need.

[Danielvb]

Thanks alot for your advice and time. It woks well.


Daniel
Hollywood, FL