Membuat Project Baru
Program ini berfungsi untuk mencari penjumlahan atau pengurangan data tanggal, bulan dan tahun. Tahapan pertama dalam pembuatan pengolahan data tanggal adalah sebagai berikut:
1. Buka visual studio 2008 >> Klik create project
2. Tulis nama project �Pengolahan Data Tanggal�
3. OK
Form Pengolahan Data Tanggal
Mari kita awali project pengolahan data tanggal dengan membuat form seperti gambar berikut ini.
Form Pengolahan Data Tanggal
Coding :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
Label9.Text = Format(Today(), "dd-MMMM-yyyy")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
'tanggal sekarang dikurangi tanggal dipilih
Label11.Text = DateDiff(DateInterval.Day, DateTimePicker1.Value, Today()) & " Hari"
'bulan sekarang dikurangi bulan dipilih
Label12.Text = DateDiff(DateInterval.Month, DateTimePicker1.Value, Today()) & " Bulan"
'tahun sekarang dikurangi tahun dipilih
Label13.Text = DateDiff(DateInterval.Year, DateTimePicker1.Value, Today()) & " Tahun"
'tanggal sekarang ditambah 1 hari
Label14.Text = Format(DateAdd(DateInterval.Day, 1, DateTimePicker1.Value), "dd-MMMM-yyyy")
'bulan sekarang ditambah 2 bulan
Label15.Text = Format(DateAdd(DateInterval.Month, 2, DateTimePicker1.Value),"dd-MMMM-yyyy")
'tahun sekarang ditambah 3
Label16.Text = Format(DateAdd(DateInterval.Year, 3, DateTimePicker1.Value),"dd-MMMM-yyyy")
'menampilkan nama hari (tanggal dipilih)
Label17.Text = DateTimePicker1.Value.ToString("dddd")
'mencari banyaknya hari dalam bulan dipilih
Label18.Text = Hasil(Year(DateTimePicker1.Text), Month(DateTimePicker1.Text))
End Sub
Function Hasil(ByVal MyYear As Integer, ByVal MyMonth As Integer) As Integer
Return DateTime.DaysInMonth(MyYear, MyMonth)
End Function
End Class
Catatan utama :
1. Penambahan data tanggal menggunakan DATEADD
2. Pengurangan data tanggal menggunakan DATEDIFF
Pilihan berikutnya adalah seliih berdasarkan Day, Month, Year dan sejenisnya
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :