fun with dates?

[Anonymous]

im trin to fill a combobox with date values...the kicker is i only dates
that are "fridays"

any suggestions?

Jaime

[Anonymous]

Dim TGIF As Date
Dim iCount As Integer

TGIF = Date
TGIF = TGIF Xor vbFriday

For iCount = 1 To 10
TGIF = TGIF + 7
MsgBox (Format(TGIF, "dddd, mm/dd/yy"))
Next

[Anonymous]

Perfect! thanks

Jaime

"Gary McMaster" wrote in message
news:BDD0DA1899FC0F7F01F7B2FCD710079C@in.WebX.maYIadrTaRb...
> Dim TGIF As Date
> Dim iCount As Integer
>
> TGIF = Date
> TGIF = TGIF Xor vbFriday
>
> For iCount = 1 To 10
> TGIF = TGIF + 7
> MsgBox (Format(TGIF, "dddd, mm/dd/yy"))
> Next
>
>

[Anonymous]

Your welcome.