The Journey and Destination

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 As System.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