Rani pernah diskusikan gimana cara menghitung selisih waktu hari kerja , alasannya ada pertanyaan dari reader gimana klo menyertakan jumlah hari tapi cuma dengan hari kerja saja (weekdays). Langsung aja kita jawab dengan contoh 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 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