Vb.Net: Dateadd Memperbesar Hari Cuma Dengan Hari Kerja

Rani pernah bahas gimana cara mengkalkulasikan selisih waktu hari kerja, alasannya adalah ada pertanyaan dari reader gimana klo menambahkan jumlah hari namun hanya dengan hari kerja saja (weekdays). Langsung aja kita jawab dengan acuan ya.

Design UI:

Code:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "From:"
        Label2.Text = "Add day(s):"
        Label3.Text = "To:"
        Button1.Text = "Add Weekday"
    End Sub


    Public Shared Function AddWeekdays(ByVal startDate As Date, _
                           ByVal interval As Integer) As Date
        Dim curDate As Date = startDate
        Dim i As Integer = 0

        Do While i < interval
            curDate = curDate.AddDays(1)
            If curDate.DayOfWeek <> DayOfWeek.Saturday And _
               curDate.DayOfWeek <> DayOfWeek.Sunday Then
                i = i + 1
            End If
        Loop

        Return curDate
    End Function
  

    Private Sub Button1_Click(ByVal sender As System.Object, _
                ByVal e As System.EventArgs) Handles Button1.Click

        DateTimePicker2.Value = AddWeekdays(DateTimePicker1.Value, _
                                            CDbl(TextBox1.Text))

    End Sub
End Class

Runtime:

Click here if you like this article.



Sumber http://rani-irsan.blogspot.com