Vb net add days to date code#

NET and ASP.NET Code Book (ISBN 1-59059-106-2, $49.99), plus regularly features at industry conferences and on BBC radio. JatinPatel - as minitech said, AddMinutes returns a DateTime. minitech when assign 'Now' its return current datetime. Dim MyDateTime AS DateTime MyDateTime.Now ().AddMinutes (15) AddMinutes returns a new DateTime. He is author of numerous technology books, including the new Ultimate VB. It's better to use the built-in method of the Date type than to create a new New DateTime. Karl Moore (MCSD, MVP) is an experience author living in Yorkshire, England. MessageBox.Show('The last working day was ' & datNewDate) While Weekday(datDate) = 1 Or Weekday(datDate) = 7ĭatDate = datDate.AddDays(IIf(ShiftDate < 0, -1, 1))Īnd here’s how you might call it in your application:ĭim datNewDate As DateTime = AddWorkingDays(Today, -1) ' Loop around until we get the need non-weekend day ' Adds the number of working days to DateInĭim datDate As DateTime = DateIn.AddDays(ShiftDate) Public Function AddWorkingDays(ByVal DateIn As DateTime, _

add your own custom message that tells users about the issues with their order. For example, pass in a 5 to get the fifth working day after your date, or “-1” to return the last working day. Professional ASP.NET 4, Professional C 4, VB 2010 Programmer's Ref, WPF. Simply pass in a date, along with the number of working days you want to shift the date by.

The following nifty AddWorkingDays function does it all for you. Code: Private Function AddWorkDays (ByVal startDate As Date, ByVal workDays As Integer) As Date Dim endDate As Date startDate Dim n As Integer 0 If workDays > 0 Then n 1 ElseIf workDays < 0 Then n -1 End If If n <> 0 Then For i 1 To Math.Abs (workDays) endDate endDate.AddDays (n) While (endDate.DayOfWeek DayOfWeek.Saturday OrElse.

Sometimes you don’t just want to add a certain number of days to a date you want to take working days into account: five working days until delivery, or two working days in which the customer needs a response.ĭifficult? Not at all.