Date (1 Viewer)

[Tanner65]

That does what you need it to do right?

 

[geekay]

A simple function can be written to meet your need. I am giving one. Call this function when u want the required date after five working days

Public Function AddDate() As Date
Dim StartDate As Date, Count As Byte
MyDate = Date
Count = 0
Do While Count < 5
    MyDate = MyDate + 1
        Select Case Weekday(MyDate)
          Case 1, 7
          Case Else
          Count = Count + 1
        End Select
Loop

AddDate = MyDate

End Function

 

[hmachan]

dee

any day of the week when added with 7 will have 5 working days between them... what's the problem? hehehe

henry

 

[hmachan]

dee,

any working day, i.e., monday to friday, when added with 7 will always have 5 working days between them...

am I missing something?

henry

 

[Tanner65]

dee,

any working day, i.e., monday to friday, when added with 7 will always have 5 working days between them...

am I missing something?

henry

Well, from looking at the code, he wants to put in the day count. Otherwise I don't understand the reason he would have a text box for amount of days.