Program Menghitung Hari Visual Basic

Sebelumnya kita telah membahas mengenai tipe data waktu dan tanggal visual basic, kali ini kita akan menciptakan aktivitas dengan memakai tipe data tersebut yaitu menciptakan aktivitas menghitung hari di visual basic, dimana kita dapat mengetahui :

- Tanggal berapa setelah x hari dari hari ini

- Tanggal berapa sebelum x hari dari hari ini

x ialah jumlah hari yang dapat kita tentukan

Baiklah berikut tutorialnya :

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

2. Tambahkan 1 combo box, 2 text box, 1 label, dan 1 command button, dan ubahlah properties dan tampilanya, sehingga menyerupai 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, alasannya ialah saat di klik command1 maka caption label1 akan berubah, dan disini aku menuliskan "Today:,

3. kemudian bila 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

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

Sekian tutorial kali ini, selamat mencoba