Hi Geoff,
there is luck in programming!
It seems, that the computer age started on a sunday,
therefore this could be sufficient:
Sub NextSaturday()
Dim l As Long
l = CLng(Now)
While l Mod 7 <> 0
l = l + 1
Wend
MsgBox CDate(l) ' next saturday or today if saturday
End Sub
Greetings from Bavaria, Germany
Helmut Weber
"red.sys" & chr$(64) & "t-online.de"
Word 97, W98
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.
