Nilai Waktu di VBA adalah fungsi inbuilt yang juga dikategorikan di bawah fungsi tanggal dan waktu di VBA, fungsi ini seperti namanya memberi kita nilai numerik dari tanggal yang diberikan sebagai argumen, dibutuhkan satu argumen yang merupakan tanggal dan mengembalikan nilai numerik dari argumen.
Apa Fungsi Nilai Waktu Lakukan di VBA?
Fungsi Nilai Waktu di VBA Excel mengembalikan porsi nilai waktu dari tanggal dan waktu penuh. Tanggal dan waktu disimpan sebagai nomor seri di excel. Nomor seri mewakili DATE dan desimal mewakili waktu. Menggunakan fungsi TimeValue kita hanya bisa mendapatkan nomor seri waktu yaitu nomor desimal.
Sintaks Fungsi Nilai Waktu VBA
Sintaks fungsi VBA TimeValue sebagai berikut.
Seperti yang kami katakan, fungsi TimeValue mengembalikan bagian nomor seri dari tanggal tertentu yang disimpan sebagai nilai teks. Waktu tidak lain adalah waktu sebenarnya yang kita cari untuk mendapatkan nomor serinya. Ingat Nilai Waktu hanya bisa mendapatkan nomor seri dari waktu yang disimpan sebagai teks, bukan sebagai TIME.
Contoh Fungsi TimeValue dengan Excel VBA
Di bawah ini adalah contoh dari VBA TimeValue Function.
Anda dapat mengunduh Templat Fungsi Nilai Waktu VBA ini di sini - Templat Fungsi Nilai Waktu VBAContoh Nilai Waktu VBA # 1
Sekarang, lihat contoh sederhana dari fungsi VBA TimeValue.
Kode:
Sub TIMEVALUE_Function_Example1 () 'Ubah string input yang diberikan menjadi waktu yang valid dan tampilkan di layar' Deklarasi Variabel Dim MyTime As Date 'Tetapkan waktu ke variabel MyTime = TimeValue ("28-05-2019 16:50:45")' Menampilkan output di layar MsgBox "Waktu Saat Ini adalah:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub 
Hal pertama yang saya deklarasikan variabel "MyTime" sebagai Tanggal.
Redupkan MyTime Sebagai Tanggal
Kemudian saya telah menetapkan nilai ke variabel dengan menerapkan TimeValue.
MyTime = TimeValue ("28-05-2019 16:50:45")Kemudian di kotak pesan, saya telah menetapkan hasil variabel.
MsgBox "Waktu yang Disediakan adalah:" & MyTime, vbInformation, "Fungsi TIMEVALUE".
Jika saya menjalankan kode menggunakan tombol F5 atau secara manual maka akan didapatkan hasil sebagai berikut.
Contoh Nilai Waktu VBA # 2
Untuk kode yang sama, saya akan mendeklarasikan variabel VBA sebagai "Double".
Kode:
Sub TIMEVALUE_Function_Example1 () 'Ubah string input yang diberikan menjadi waktu yang valid dan tampilkan di layar' Deklarasi Variabel Dim MyTime As Double 'Tetapkan waktu ke variabel MyTime = TimeValue ("28-05-2019 16:50:45")' Menampilkan output di layar MsgBox "Waktu Saat Ini adalah:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub 
Sekarang jika saya menjalankan kode VBA secara manual atau dengan menekan tombol F5, itu akan menampilkan bagian nomor seri waktu 16:50:45.
Untuk pemahaman Anda yang lebih baik, pertama-tama saya akan memasukkan angka yang diberikan oleh kotak pesan VBA ke salah satu sel.
Sekarang saya akan menerapkan format waktu untuk memeriksa hasil yang tepat.
Saat Anda mengubahnya menjadi format waktu, Anda dapat melihat waktu yang tepat.
Contoh Nilai Waktu VBA # 3
Sekarang, lihat data di bawah ini.
Kami memiliki data dan waktu bersama dari sel A1 hingga A14. Untuk kolom kedua, kita hanya perlu mengekstrak nilai waktu. Karena kita memiliki lebih dari satu sel untuk ditangani, kita perlu menggunakan loop untuk melakukan tugas yang sama untuk semua sel.
Kami memiliki data dari sel 1 hingga sel 14, jadi loop kami harus berjalan selama 14 kali. Kita perlu menggunakan loop FOR NEXT di VBA untuk menyebutkan batas bawah dan batas atas. Kode di bawah ini adalah kode yang sudah tertulis untuk mengekstrak nilai waktu dari kombinasi tanggal & waktu.
Kode:
Sub TimeValue_Example3 () Dim k As Integer For k = 1 to 14 Cells (k, 2) .Value = TimeValue (Sel (k, 1) .Value) Berikutnya k End Sub
Saat kita menjalankan kode tersebut kita akan mendapatkan nilai seperti di bawah ini.
Jika Anda ingin melihat waktu, terapkan format TIME untuk itu.
Jadi, beginilah cara kerja fungsi TIME VALUE di VBA & Excel.
