Nilai Waktu dalam VBA adalah fungsi terbina dalam yang juga dikategorikan di bawah fungsi tarikh dan waktu di VBA, fungsi ini seperti namanya memberi kita nilai numerik tarikh yang diberikan sebagai argumen, ia memerlukan satu argumen yang merupakan tarikh dan mengembalikan nilai berangka dari argumen.
Apakah Fungsi Nilai Masa yang Dilakukan di VBA?
Fungsi Nilai masa dalam VBA Excel mengembalikan bahagian nilai masa dari tarikh dan waktu penuh. Tarikh dan masa disimpan sebagai nombor siri di excel. Nombor siri mewakili DATE, dan perpuluhan mewakili masa. Dengan menggunakan fungsi TimeValue, kita hanya dapat memperoleh nombor siri waktu, iaitu nombor perpuluhan.
Fungsi Sintaks VBA TimeValue
Sintaks fungsi VBA TimeValue seperti berikut.
Seperti yang kita katakan, fungsi TimeValue mengembalikan bahagian nombor siri pada tarikh yang diberikan, yang disimpan sebagai nilai teks. Masa tidak lain hanyalah masa sebenar yang kita cari untuk mendapatkan nombor siri. Ingat, Nilai Waktu hanya dapat memperoleh nombor siri dari waktu, yang disimpan sebagai teks, bukan sebagai MASA.
Contoh Fungsi TimeValue dengan Excel VBA
Berikut adalah contoh Fungsi TimeValue VBA.
Nilai Nilai VBA Contoh # 1
Sekarang, lihat contoh ringkas fungsi VBA TimeValue.
Kod:
Sub TIMEVALUE_Function_Example1 () 'Tukarkan rentetan input yang diberikan ke masa yang sah dan paparkan di skrin' Deklarasi pemboleh ubah Dim MyTime As Date 'Tetapkan masa ke pemboleh ubah MyTime = TimeValue ("28-05-2019 16:50:45")' Paparan output di layar MsgBox "Waktu Semasa adalah:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub
Perkara pertama, saya telah menyatakan pemboleh ubah "MyTime" sebagai Tarikh.
Redam Waktu Saya Seperti Tarikh
Kemudian saya telah memberikan nilai kepada pemboleh ubah dengan menerapkan TimeValue.
MyTime = Nilai Masa ("28-05-2019 16:50:45")
Kemudian di kotak mesej, saya telah memberikan hasil berubah.
MsgBox "Waktu Dibekalkan adalah:" & MyTime, vbInformation, "Fungsi TIMEVALUE".
Sekiranya saya menjalankan kod menggunakan kunci F5 atau secara manual, maka kita akan mendapat hasilnya seperti berikut.
Nilai Nilai VBA Contoh # 2
Untuk kod yang sama, saya akan menyatakan pemboleh ubah VBA sebagai "Double."
Kod:
Sub TIMEVALUE_Function_Example1 () 'Tukarkan rentetan input yang diberikan ke masa yang sah dan paparkan di layar' Deklarasi pemboleh ubah Dim MyTime As Double 'Tetapkan masa ke pemboleh ubah MyTime = TimeValue ("28-05-2019 16:50:45")' Output paparan pada layar MsgBox "Waktu Semasa adalah:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub
Sekarang, jika saya menjalankan kod VBA secara manual atau dengan menekan kekunci F5, ia akan memaparkan nombor siri pada waktu 16:50:45.
Untuk pemahaman anda yang lebih baik, saya akan memasukkan nombor yang diberikan oleh kotak mesej VBA ke salah satu sel terlebih dahulu.
Sekarang saya akan menggunakan format waktu untuk memeriksa hasil yang tepat.
When you convert it into a time format, you can see the exact time.
VBA TimeValue Example #3
Now, look at the below data.
We have data and time together from A1 to A14 cells. For the second column, we need to extract only the time value. Since we have more than one cell to deal with, we need to employ loops to perform the same set of tasks for all the cells.
We have data from 1st cell to 14th cell, so our loop should run for 14 times. We need to use FOR NEXT loop in VBA to mention the lower limit and upper limit. The Below code is the already written code to extract time value from the date & time combination.
Code:
Sub TimeValue_Example3() Dim k As Integer For k = 1 To 14 Cells(k, 2).Value = TimeValue(Cells(k, 1).Value) Next k End Sub
When we run the code, we will get the values like below.
Sekiranya anda ingin melihat waktunya, maka terapkan format WAKTU padanya.
Jadi, ini adalah bagaimana fungsi TIME VALUE berfungsi di VBA & Excel.
