Setelah menulis untuk versi Visual Basic 6 , mungkin juga ada yang perlu menjumlah jumlah hari kerja (weekday) dalam rentang waktu/tanggal tertentu tanpa menghitung hari sabtu dan ahad dalam versi Visual Basic .NET. 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 = "To:" Label3.Text = "No. of Days:" Button1.Text = "Calculate Weekday" End Sub Public Shared Function CalculateWeekdays( ByVal startDate As Date , _ ByVal endDate As Date ) As Integer Dim numWeekdays As Integer Dim totalDays As Integer Dim WeekendDays As Integer numWeekdays = 0 WeekendDays = 0 totalDays = DateDiff(DateInterval.Day, startDate, endDate) + 1 For i As Integer = 1 To totalDays If DatePart(DateInterval.Weekday, startDate) = 1 Then WeekendDays = WeekendDays + 1 End If If DatePart(DateInterval.Weekday, startDate) = 7 Then WeekendDays = WeekendDays + 1 End If startDate = DateAdd( "d" , 1, startDate) Next numWeekdays = totalDays - WeekendDays Return numWeekdays End Function Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = CalculateWeekdays(DateTimePicker1.Value, _ DateTimePicker2.Value) End Sub End Class Runtime: Click here if you like this article. Sumber http://rani-irsan.blogspot.com