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
pop
Sabtu, 29 Agustus 2020
Vb.Net: Dateadd Menambah Hari Hanya Dengan Hari Kerja
Diterbitkan Agustus 29, 2020
Artikel Terkait
- 0 Then MsgBox( "Welcome " & strUserName & "!" ) 'tu
- Sintaks Exit Do mampu dipakai untuk keluar dari loop (terdekat) sebelum seharus nya prose
- Setelah kita membicarakan bagaimana cara memperlihatkan data dari excel di datagridview,
- 0 iCount -= 1 ListBox1.Items.Add(arrNumber(iCount)) Loo
- 0 Dim line As String = Lines.Dequeue Dim sz As SizeF = e
- Artikel ini lanjutan dari part 1. Dan ini beliau source code langkap nya: Imports Syste
Langganan:
Posting Komentar (Atom)
EmoticonEmoticon