codes for working days error

[Harry]

can someone see anything wrong with this :

Public Function NextWorkDay(dtmDate As Date) As Date
'****************************************
'Created By: Robert L. Johnson III
'Mod Date: February 19, 2003
'Purpose: Determine the next business (working) day
'In: dteDate is the date to be checked
'Out: Returns the next business day
'Example: NextWorkDay(#12/31/02#) returns 1/2/03
' (1/1/01 is a holiday (New Year's Day))
'****************************************
Dim dtmTemp As Date
Dim blnNextWorkday As Boolean

dtmTemp = dtmDate + 1
blnNextWorkday = False
Do Until blnNextWorkday = True
If IsWeekend(dtmTemp) = True Or IsHoliday(dtmTemp) = True Then
dtmTemp = DateAdd("d", 1, dtmTemp)
Else
blnNextWorkday = True
End If
Loop
NextWorkDay = dtmTemp



or have any codes to work out next work day

[weekend00]

Your code looks good!
But it took a while for me to understand it. Following code maybe easier to understand?

Public Function NextWorkDay(dtmDate As Date) As Date
'Purpose: Determine the next business (working) day
'In: dteDate is the date to be checked
'Out: Returns the next business day
'Example: NextWorkDay(#12/31/02#) returns 1/2/03
' (1/1/01 is a holiday (New Year's Day))
'****************************************
    nextworkday = dtmDate + 1
    Do While IsWeekend(nextworkday) Or IsHoliday(nextworkday)
        nextworkday = nextworkday + 1
    Loop
end function

[RuralGuy]

What you posted is missing at least an End Function statement and two additional functions used along with a Dim statement that should not be there. "Dim dtmTemp As Date" This variable is already defined in the 1st line.

[RuralGuy]

There are at least three post about this code. It looks like all of you are taking the same class.

[Rawb]

There are at least three post about this code. It looks like all of you are taking the same class.

rofl!

I agree that it's missing Code for those two other Functions (IsWeekday and IsHoliday), but I don't see where he's double-Dimming any variables.

As for what's wrong with the code, do you have the specific error message or number? That could help us figure out the problem. If you're getting a compile error, then I'd go with the missing "End Function". If it's a runtime error, then it's something else.

EDIT: Whoops! You are double Dimming! You've Dimmed dtmDate as a passed argument as well as down below (so RG's right all around!). That's most likely where your error is.

[TheShabz]

Also, I'd always throw in "Option Explicit" just to make sure you have all your variables properly declared.

[slave138]

I agree that it's missing Code for those two other Functions (IsWeekday and IsHoliday), but I don't see where he's double-Dimming any variables.
...
EDIT: Whoops! You are double Dimming! You've Dimmed dtmDate as a passed argument as well as down below (so RG's right all around!). That's most likely where your error is.

I think you were right the first time. There is a Dim dtmTemp declared in the function but I only see dtmDate declared as a function parameter.

[RuralGuy]

I think you were right the first time. There is a Dim dtmTemp declared in the function but I only see dtmDate declared as a function parameter.

Okay, I was in error so thanks for the perspective! It has not been double Dimmed. It is also an unnecessary variable since the code could have used the dtmDate variable throughout. It looks like the code would work to me but I didn't try it.

[weekend00]

The owner of the post is gone while we are argueing here

[RuralGuy]

I think the class they are all taking is "How to drive Forum helpers nuts!".

[Rawb]

Yeah, I'm pretty sure he just grabbed weekend's code and ran off with it.

I'm curious though. . .

Since I was wrong about being wrong was I right? Or was I wrong for being wrong about being wrong and therefore being right?

[RuralGuy]

That's right! You were wrong about being wrong!

[ajetrumpet]

I think the class they are all taking is "How to drive Forum helpers nuts!".

It would be worse if this was real life. =)

[Rawb]

Wait. . .

So we're all just in an Inception-like dream??!?

[RuralGuy]

You catch of quickly! 8^)