Program Menghitung Hari Visual Basic

Sebelumnya kita telah membahas mengenai tipe data waktu dan tanggal visual basic, kali ini kita akan membuat program dengan menggunakan tipe data tersebut yaitu membuat program menghitung hari di visual basic, dimana kita bisa mengetahui :

- Tanggal berapa setelah x hari dari hari ini

- Tanggal berapa sebelum x hari dari hari ini

x adalah jumlah hari yang bisa kita tentukan

Baiklah berikut tutorialnya :

1. Seperti biasa, jalankan VB dengan program Standar EXE, lalu

2. Tambahkan 1 combo box, 2 text box, 1 label, dan 1 command button, dan ubahlah properties dan tampilanya, sehingga seperti ini :

Tool Box	Properties	Keterangan
Form 1	Statr Up Position	Center Screen
Text 1	Text	(Kosong)
	Enabled	False
Text 2	Text	(Kosong)
Combo 1	Text	(Kosong)
Command 1	Caption	SEE
Label 1	Caption	(Kosong)
All	Font Size	10

Untuk caption label1 itu bebas, karena ketika di klik command1 maka caption label1 akan berubah, dan disini saya menuliskan "Today:,

3. lalu jika sudah, tuliskan script berikut :

Private Sub Command1_Click()
Today = Date

If Text1 = "" Or Combo1 = "" Then
MsgBox "Please, Complete the form !", vbInformation, "BLUES PEDIA"

ElseIf Combo1 = "Next Day " Then
DaysTo = Today + Val(Text2)

ElseIf Combo1 = "Previous Day " Then
DaysTo = Today - Val(Text2)

End If
Label1.Caption = Text2 & " " & Combo1 & "Is " & DaysTo
End Sub

Private Sub Form_Load()
Combo1.AddItem "Next Day "
Combo1.AddItem "Previous Day "
Text1.Text = Format(Date, "dddd, dd mmmm yyyy")
End Sub

4. Silahkan jalankan program

ketika program dijalankan maka text1 akan berisi tanggal hari ini (tanggal ketika program dijalankan), lalu pilih di combo1 "Next Day" untuk melihat x hari berikutnya, dan "Previous Day" x hari sebelumnya, jika sudah isi text2 dengan jumlah hari sebelum / sesudah yang anda inginkan, dan langkah terakhir, klik command1 "SEE" untuk melihat hasilnya, sehingga label1 akan berisi tanggal x hari sebelum atau sesudah dari hari ini.

Sekian tutorial kali ini, selamat mencoba