Mencari Tanggal Berikutnya atau Sebelumnya Berdasarkan Rentang Hari di VB6

Pada artikel sebelumnya kita sudah membahas tentang cara menghitung selisih antara 2 tanggal, kali ini saya akan membagikan sebuah tips yang tidak jauh berbeda dengan artikel sebelumnya.

Tapi pada artikel kali ini kita akan mencari tanggal sebelumnya atau berikutnya berdasarkan interval yang kita masukan, missal hari ini Selasa tanggal, 6 desember 2022 lalu kita masukan Interval 3 hari berikutnya maka hasilnya Jumat, 9 Desemebr 2022 begitupun sebaliknya apabila kita ingin mencari tanggal dengan rentang 3 hari sebelumnya maka hasilnya Sabtu, 3 Desember 2022.Jadi kesimpulannya kita akan mencari tanggal berikutnya dengan rentang beberapa hari baik sebelumnya maupuan sesuadahnya.

Mencari Tanggal Berikutnya atau Sebelumnya Berdasarkan Rentang Hari di VB6 

Berikut adalah langkah-langkah  yang harus Anda lakukan untuk mencari tanggal berikutnya dengan rentang beberapa hari baik sebelumnya maupuan sesuadahnya 

• Buka form VB6 Anda
• Tambahakan dalam form 2 Textbox, 1 Combobox, 2 Label dan 1 Commandbuton
• Desainlah form seperti gambar dibawah ini :

Desain Form

Lalu ketikan kode dibawah ini di ditempat onjek masing masing :

Private Sub Command1_Click()

today = Date

If Text2 = "" Or Combo1 = "" Then

MsgBox "Lengkapi data di Form", vbInformation, "Perhatian"

Text2.SetFocus

ElseIf Combo1 = "Hari Berikutnya" Then

daysto = today + Val(Text2.Text)

daysto = Format(daysto, "dddd,dd mmmm yyyy")

Label1.Caption = Text2.Text & " " & Combo1 & " adalah " & daysto

ElseIf Combo1 = "Hari Sebelumnya" Then

daysto = today - Val(Text2.Text)

daysto = Format(daysto, "dddd,dd mmmm yyyy")

Label1.Caption = Text2.Text & " " & Combo1 & " adalah " & daysto

End If

End Sub

Private Sub Form_Activate()

Text2.SetFocus

End Sub

Private Sub Form_Load()

Combo1.Text = "Hari Berikutnya"

Combo1.AddItem "Hari Berikutnya"

Combo1.AddItem "Hari Sebelumnya"

Text1.Text = Format(Date, "dddd,dd mmmm yyyy")

Text2.Text = ""

Label1.Caption = ""

End Sub

Setelah anda mengikuti langkah-langkah diatas dengan benar, coba jalankan program Anda jika tidak ada error maka hasilnya akan tampak pada gambar dibawah ini :

Output

Cara pengoprasian:

Masukan interval atau rentang hari misalnya 3 hari berikutnya, pilih  pada combobox “Hari berikutnya” kemudian tekan Check hasilnya akan menunjukan tanggal 3 hari kedepan atau lusa. Begitupun sebaliknya Anda bisa mencari rentang hari sebelumnya pilih pada combobox “Hari Sebelumnya” ketika anda menekan tombol Check maka hasilnya akan tampil 3 hari yang yang telah lewat atau 3 hari yang lalu.

Demikianlah artikel dari saya tentang Mencari Tanggal Berikutnya atau Sebelumnya Berdasarkan Rentang Hari di VB6 , semoga artikel ini bermanfaat buat kita semua.Amin

Selamat mencoba semoga sukses....

Related Post: Date/Time