Revision: 59904
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at October 9, 2012 01:04 by ed_trench
Initial Code
<System.Runtime.CompilerServices.Extension()>
Function WeekdayDiff(ByVal dte As DateTime, ByVal interval As Integer) As DateTime
Dim days As Integer
Dim counter As Integer
If interval = 0 Then
Return dte
Exit Function
ElseIf interval > 0 Then
days = 1
counter = 1
Else
days = -1
counter = -1
End If
Do Until days = interval + counter
dte = dte.AddDays(counter)
If (dte.DayOfWeek < DayOfWeek.Saturday AndAlso dte.DayOfWeek > DayOfWeek.Sunday) Then
days = days + counter
End If
Loop
Return dte
End Function
Initial URL
Initial Description
VB Extension Method for Weekday difference
Initial Title
VB Extension Method WeekdayDiff
Initial Tags
Initial Language
Visual Basic