Adding working days to date

[dbasnett]

That is only part of his code... The full code is in post#5, which in no way resembles a single line.... Does it work? I don't know... but I take his words that it does.

I guess it was the reference to it being a 'one-liner' that got me.

My one-liner

    Private Function addWorkingDays(d As DateTime, daysToAdd As Integer) As DateTime
        If daysToAdd <= 0 Then Throw New Exception("foo")
        Dim rv As DateTime = d
        Dim ctDays As Integer = daysToAdd
        'force date to a Monday
        'note: a Sat or Sun start date + 1 day = a Monday
        Do While rv.DayOfWeek <> DayOfWeek.Monday AndAlso ctDays > 0
            rv = rv.AddDays(1)
            ctDays -= 1
            If rv.DayOfWeek = DayOfWeek.Saturday Then
                rv = rv.AddDays(2)
            ElseIf rv.DayOfWeek = DayOfWeek.Sunday Then
                rv = rv.AddDays(1)
            End If
        Loop
        Dim wk As Integer = ctDays \ 5 'how many business weeks
        ctDays -= wk * 5 'substract from day count
        ctDays += wk * 7 'convert business weeks to calendar days
        rv = rv.AddDays(ctDays)
        Return rv
    End Function