Next Working Day : Date Time Function « Development « VB.Net

Home VB.Net 1. 2D 2. Application 3. Class 4. Data Structure 5. Data Types 6. Database ADO.net 7. Development 8. Event 9. File Directory 10. Generics 11. GUI 12. Language Basics 13. LINQ 14. Network Remote 15. Security 16. Thread 17. Windows Presentation Foundation 18. Windows System 19. XML 20. XML LINQ VB.Net Tutorial VB.Net by API

VB.Net » Development » Date Time Function Screenshots  Next Working Day     Public Class MainClass     Public Shared Sub Main()         Dim datNewDate As Date = AddWorkingDays(Today, 1)         System.Console.WriteLine(datNewDate)     End Sub     Public Shared Function AddWorkingDays(ByVal DateIn As Date, ByVal ShiftDate As Integer) As Date         Dim datDate As Date = DateIn.AddDays(ShiftDate)         While Weekday(datDate) = 1 Or Weekday(datDate) = 7             datDate = datDate.AddDays(IIf(ShiftDate < 0, -1, 1))         End While         Return datDate     End Function End Class                  Related examples in the same category 1. Date Time related Function 2. Years Between Dates 3. Parse(String) method returns a DateTime value whose Kind property is DateTimeKind..::.Unspecified 4. Parse(String) parses date and time values using the formatting conventions of the en-US culture 5. Generic and nongeneric versions of the CompareTo method for DateTime value