calculate the first sunday back

[sal21]

During a loop in for next I have a variable myvar (dimensioned as dates), for example:

01/03/2011
...
03/03/2011
05/03/2011

how do I calculate the first Sunday back the date in question?
In this case for all three dates will be the result is:

27/02/2011

[HansV]

Try

myvar - Weekday(myvar) + 1

[sal21]

Try

myvar - Weekday(myvar) + 1

[sal21]

Try

myvar - Weekday(myvar) + 1

I' sorry but i need to take project in this day!

I loop the famous dates into the loop ...

And i can have always a pair for each dates a pair of dates with same dd/mm/yyyy but the only distinguisch para is the hh:mm..

similar:
01/01/2011 19.00.14
and
01/01/2011 05.00.11
....
02/01/2011 19.00.27
and
02/01/2011 05.00.02


e need to compare the pair of date and skip from the loop the date with the value most hight respect the little...

in this case i need only

01/01/2011 05.00.11
02/01/2011 05.00.02

i think you understand me.

my part of code:

Code: Select all

...
    For Each olItm In olFld.Items
        If InStr(olItm.Subject, "test") Then
            TEST = olItm.ReceivedTime
            ReDim Preserve ARRAY_DATE(I)
            ARRAY_DATE(I) = TEST
            I = I + 1
        End If
    Next

    I = 0

    For I = UBound(ARRAY_DATE, 1) To LBound(ARRAY_DATE, 1) Step -1
        For J = LBound(ARRAY_DATE, 1) To I - 1
            If ARRAY_DATE(J) < ARRAY_DATE(J + 1) Then
                TEMP = ARRAY_DATE(J)
                ARRAY_DATE(J) = ARRAY_DATE(J + 1)
                ARRAY_DATE(J + 1) = TEMP
            End If
        Next J
    Next I

    Me.ComboBox1.Clear
    
    I = 0
    For I = LBound(ARRAY_DATE, 1) To UBound(ARRAY_DATE, 1) 'Step -1
        ORDINA = ARRAY_DATE(I)
        Me.ComboBox1.AddItem Format(ORDINA, "dd/mm/yyyy hh:nn")
    Next I
...

note:
in other case please take a eyes if my code is not resonable....

[HansV]

Sorry, it's not clear to me what your question has to do with the code.

[sal21]

Sorry, it's not clear to me what your question has to do with the code.

ok...

not consider it.

compare the 2 dates during the for next and take the date with the minimum date and skip the max date..

[sal21]

Sorry, it's not clear to me what your question has to do with the code.

If is most simple i post my question on other side:

Admitting i loop the series of value with a for next how to fill combobox items with the value marked with < - Selected

In effect i need to fill the items oin combo with the dates vale with the oldest time:

...
01/01/2011 05.00.11 <- Selected
01/01/2011 19.00.14
01/01/2011 21.21.11
02/01/2011 05.00.02 <- Selected
03/01/2011 01.00.03 <- Selected
03/01/2011 12.17.21
03/01/2011 18.00.27
...

[HansV]

Change the code

Code: Select all

    For I = LBound(ARRAY_DATE, 1) To UBound(ARRAY_DATE, 1) 'Step -1
        ORDINA = ARRAY_DATE(I)
        Me.ComboBox1.AddItem Format(ORDINA, "dd/mm/yyyy hh:nn")
    Next I

to

Code: Select all

    Dim ORDINA_PREV As Date
    For I = LBound(ARRAY_DATE, 1) To UBound(ARRAY_DATE, 1)
        ORDINA = ARRAY_DATE(I)
        If Int(ORDINA) <> Int(ORDINA_PREV) Then
            Me.ComboBox1.AddItem Format(ORDINA, "dd/mm/yyyy hh:nn")
            ORDINA_PREV = ORDINA
        End If
    Next I

[sal21]

Try

myvar - Weekday(myvar) + 1

Hans instead the first back.. how to the first after Sunday based myvar:scratch:?

myvar=08/04/2011 Sunday =10/04/2011
myvar=05/04/2011 Sunday =10/04/2011
..
ecc...

[HansV]

How about

myvar - Weekday(myvar) + 8

[sal21]

How about

myvar - Weekday(myvar) + 8

I'M STUPID!
Tks for patience...

[sal21]

Change the code

Code: Select all

    For I = LBound(ARRAY_DATE, 1) To UBound(ARRAY_DATE, 1) 'Step -1
        ORDINA = ARRAY_DATE(I)
        Me.ComboBox1.AddItem Format(ORDINA, "dd/mm/yyyy hh:nn")
    Next I

to

Code: Select all

    Dim ORDINA_PREV As Date
    For I = LBound(ARRAY_DATE, 1) To UBound(ARRAY_DATE, 1)
        ORDINA = ARRAY_DATE(I)
        If Int(ORDINA) <> Int(ORDINA_PREV) Then
            Me.ComboBox1.AddItem Format(ORDINA, "dd/mm/yyyy hh:nn")
            ORDINA_PREV = ORDINA
        End If
    Next I

Your code work fine... but i need a distinct date with the oldest time based the same day month and year...
in thsi case i need:

01/01/2011 05.00.11
02/01/2011 05.00.02
03/01/2011 01.00.03

[HansV]

Try this:

Code: Select all

    For I = UBound(ARRAY_DATE) To LBound(ARRAY_DATE) Step -1
        For J = LBound(ARRAY_DATE, 1) To I - 1
            If ARRAY_DATE(J) > ARRAY_DATE(J + 1) Then
                TEMP = ARRAY_DATE(J)
                ARRAY_DATE(J) = ARRAY_DATE(J + 1)
                ARRAY_DATE(J + 1) = TEMP
            End If
        Next J
    Next I

    Me.ComboBox1.Clear

    Dim ORDINA_PREV As Date
    For I = LBound(ARRAY_DATE, 1) To UBound(ARRAY_DATE, 1)
        ORDINA = ARRAY_DATE(I)
        If Int(ORDINA) <> Int(ORDINA_PREV) Then
            Me.ComboBox1.AddItem Format(ORDINA, "dd/mm/yyyy hh:nn")
            ORDINA_PREV = ORDINA
        End If
    Next I