Day Function Problem 2

[Scoty]

Maybe I don't understand the function of day. The problem I am having is that when I ask the system for the day of the date it always lists wierd things. I want the actual day not a day based on the first of the month being a Monday. For example. My function is

dim dat
dat = Text0 'the day I wish to calculate
If Format(day(dat),"dddd") = "Saturday" Then dosomething Else dosomthingelse

The ultimate outcome of this is to get 28 business days added onto what ever date the user enters into Text0. It is just wierd...I don't know how else to explain it. Can someone give me a heads up as to what is going on with this?
Thanks
Scoty
:

 

[RickSpr]

Check the syntax of the Format function for dates. The first argument is a full date, not a day number. Since you're using Day(dat), you're giving it a number from 1 to 31, which corresponds to dates from December 31, 1899 to January 30, 1900, and you're getting the day of the week from one of those dates.

Format(dat,...) will work, but you could also use:
If Weekday(dat) = vbSaturday
and this would be slightly more efficient because it doesn't require converting the day number into a string. Rick Sprague

 

[Scoty]

Thanks for explaining that to me. The weekday() function works great.

 

[sharonc]

AddDAte: DateAdd("d",28,Date())

This will add 28 days to the current system date.