Memanipulasi Date And Time di Visual Basic .Net Dengan Mudah dan Praktis

Pernah gak Anda membuat sebuah aplikasi yang menampilkan tanggal dan waktu hari ini? atau Anda ingin membuat aplikasi yang dapat mencari selisih antara dua tanggal dan waktu yang diatur dengan fungsi Date dan Time. Contoh aplikasi ini adalah aplikasi Desktop pembayaran parkir kendaraan. Aplikasi ini membutuhkan tanggal dan waktu untuk menghitung selisih lamanya Anda berparkir kendaraan sesuai tarif yang di tentukan.

Dalam artikel kali ini Admin tidak membuat aplikasi parkir tetapi akan membahas secara lengkap bagaimana cara memanipulasi Date dan Time lengkap dengan contoh kodenya.

Date dan Time termasuk ke golongan kontrol Type data DateTime yang menyediakan banyak metode dan properti bawaan untuk mengolahnya.

Berikut dibawah ini adalah beberapa manipulasi Date dan Time yang Admin sudah rangkum dalam bentuk kode sederhana:

1. Mengambail Tanggal dan Jam bersamaan

Dim sekarang As System.DateTime = System.DateTime.Now

LabelWaktu.Text ="Tanggal & Waktu Sekarang:" sekarang.ToString("dd-MM-yyyy HH:mm:ss")

Hasilnya:12-02-2026 08:09:59

2. Mengambil Tanggal saja secara lengkap

 Label1.Text = System.DateTime.Now.ToString("dddd, dd MMMM yyyy")

Hasilnya:12-02-2026 

3. Mengambil Jam saja secara lengkap

Label1.Text = System.DateTime.Now.ToString("HH:mm:ss")

Hasilnya: 08:09:59

4. Mengambil Bagian dari Tanggal

a. Mengambil Tahun

Dim waktu As System.DateTime = System.DateTime.Now

Dim tahun = waktu.Year

Label1.Text="Tahun hari ini adalah "& tahun

Hasilnya :2026

b. Mengambil Bulan

Dim waktu As System.DateTime = System.DateTime.Now

Dim bulan = waktu.Month

Label1.Text="Bulan hari ini adalah "& bulan

Hasilnya :2

c. Mengambil Tanggal

Dim waktu As System.DateTime = System.DateTime.Now

Dim tanggal = waktu.Day

Label1.Text="Tanggal hari ini adalah"& tanggal

Hasilnya :12

5. Mengambil Bagian dari Time

a. Jam

Dim waktu As System.DateTime = System.DateTime.Now

Dim jam = waktu.Hour

Label1.Text="Jam hari ini adalah"& jam

Hasilnya :8

b. Menit

Dim waktu As System.DateTime = System.DateTime.Now

Dim menit = waktu.Minute

Label1.Text="Menit hari ini adalah"& menit

Hasilnya :21

c. Detik

Dim waktu As System.DateTime = System.DateTime.Now

Dim detik = waktu.Second

Label1.Text="Menit ini adalah"& detik

Hasilnya :16

6. Mencari selisih antara dua tanggal

 Dim tglAwal As System.DateTime = New System.DateTime(2026, 2, 1)

 Dim tglAkhir As System.DateTime = System.DateTime.Today

 Dim selisih As TimeSpan = tglAkhir - tglAwal

 Label1.Text = "Selisih Hari : " & selisih.TotalDays

Keterangan:

tglAwal :01/02/2026  >> tanggal yang lalu

tglAkhir: 12/02/2026 >> tanggal sekarang

Hasilnya : 11

7. Mencari Selisih Waktu

 ' Jam lalu (hari ini jam 06:00)

 Dim jamInput As String = "06:00"  

 Dim jamLalu As System.DateTime =System.DateTime.Today.Add(TimeSpan.Parse(jamInput) )

        ' Jam sekarang

        Dim jamSekarang As System.DateTime = System.DateTime.Now

        ' Kalau lewat tengah malam

        If jamSekarang < jamLalu Then

            jamSekarang = jamSekarang.AddDays(1)

        End If

        ' Hitung selisih

        Dim selisih As TimeSpan = jamSekarang - jamLalu

        ' Ambil hari & jam

        Dim hari As Integer = selisih.Days

        Dim jam As Integer = selisih.Hours

        MessageBox.Show(

            "Jam Lalu     : " & jamLalu.ToString("HH:mm") & Environment.NewLine &

            "Jam Sekarang : " & jamSekarang.ToString("HH:mm") & Environment.NewLine &

            "Selisih      : " & hari & " hari " & jam & " jam"

        )

    End Sub

Keterangan :

Dim jamInput As String = "06:00"  >> jam hasil inputan

Dim jamSekarang As System.DateTime = System.DateTime.Now >> Jam sekarang (09:00)

Hasilnya:0 Hari 3 Jam

8. Format Tanggal

Dim tgl As System.DateTime = System.DateTime.Now

'TextBox set MultiLine:true

 txtResult.Text =

            "Format 1: " & tgl.ToString("dd-MM-yyyy") & Environment.NewLine &

            "Format 2: " & tgl.ToString("yyyy/MM/dd HH:mm:ss") & Environment.NewLine &

            "Format 3: " & tgl.ToString("dddd, dd MMMM yyyy")

Hasilnya:

Format 1: 12-02-2026

Format 2: 2026/02/12 08:52:49

Format 3: Kamis, 12 Februari 2026

9. Menampilkan Tanggal dan Jam Realtime

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

'pengaturan interval timer1:1000

Dim sekarang As System.DateTime = System.DateTime.Now

Label1.Text=sekarang

End Sub

Hasilnya : 12-02-2026 08:09:59 (Waktu terus bergulir)

Itulah beberapa manipulasi Date dan Time yang Admin sudah rangkum, kalau Anda punya manipulasi lain diluar yang Admin tulis silahkan masukannya dalam komentar.

Sekiranya ini dulu artikel kali ini tentang Memanipulasi Date And Time di Visual Basic .Net Dengan Mudah dan Praktis, semoga artikel ini bermanfaat buat kita semua.Amin.

Selamat mencoba semoga berhasil.