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
- Okaaay jadi begini loh Panji Abdi ^_^ Supaya ukuran dan posisi nya tetep compatible di
- Sekarang kita akan membahas bagaimana memperlihatkan data dari table di Ms Access ke Dat
- Klo orang bilang cewe itu terkadang terpengaruh dengan mood, Rani gak akan bilang itu sa
- *.jpg
- Add Reference... Pilih Microsoft.Office.Interop.Excel kemudian klik OK.
- *.png
Langganan:
Posting Komentar (Atom)
EmoticonEmoticon