VBA'daki Zaman Değeri, VBA'daki tarih ve saat işlevi altında da kategorize edilen yerleşik bir işlevdir, adından da anlaşılacağı gibi bu işlev, bize bağımsız değişken olarak sağlanan tarihin sayısal değerini verir, tarih olan tek bir bağımsız değişken alır ve bağımsız değişkendeki sayısal değeri döndürür.
VBA'da Zaman Değeri İşlevi Ne Yapar?
VBA Excel'deki zaman Değeri işlevi, tam tarih ve saatten saat değeri bölümünü döndürür. Tarih ve saat, excel'de seri numarası olarak saklanır. Seri numarası TARİH'i, ondalık ise saati temsil eder. TimeValue işlevini kullanarak yalnızca zaman seri numarasını, yani ondalık sayıyı alabiliriz.
VBA TimeValue İşlevinin Sözdizimi
VBA TimeValue işlevinin sözdizimi aşağıdaki gibidir.
Söylediğimiz gibi, TimeValue işlevi verilen tarihin bir metin değeri olarak saklanan seri numarası bölümünü döndürür. Zaman, seri numarasını almak için aradığımız gerçek zamandan başka bir şey değildir. Unutmayın, Zaman Değeri seri numarasını yalnızca TIME olarak değil, metin olarak depolanan zamandan alabilir.
Excel VBA ile TimeValue İşlevi Örnekleri
Aşağıda VBA TimeValue İşlevinin örnekleri verilmiştir.
VBA TimeValue Örneği 1
Şimdi, VBA TimeValue işlevinin basit örneğine bakın.
Kod:
Alt TIMEVALUE_Function_Example1 () 'Verilen girdi dizesini geçerli bir saate dönüştür ve ekranda' Değişken bildirimi Dim MyTime As Date 'Bir değişkene zaman ata MyTime = TimeValue ("28-05-2019 16:50:45")' Ekrandaki MsgBox "Geçerli Zaman:" & MyTime, vbInformation, "VBA TIMEVALUE İşlevi" End Sub
İlk olarak "MyTime" değişkenini Tarih olarak tanımladım .
Dim MyTime Tarih Olarak
Daha sonra TimeValue uygulayarak değeri değişkene atadım.
MyTime = ZamanDeğeri ("28-05-2019 16:50:45")
Sonra mesaj kutusunda, sonuç değişkenini atadım.
MsgBox "Sağlanan Saat:" & MyTime, vbInformation, "TIMEVALUE İşlevi".
Kodu F5 tuşunu kullanarak veya manuel olarak çalıştırırsam, sonucu aşağıdaki gibi alacağız.
VBA TimeValue Örnek 2
Aynı kod için VBA değişkenini "Double" olarak ilan edeceğim.
Kod:
Alt TIMEVALUE_Function_Example1 () 'Verilen girdi dizesini geçerli bir zamana dönüştür ve ekranda' Değişken bildirimi Dim MyTime As Double 'Zaman değişkenine MyTime = TimeValue ("28-05-2019 16:50:45")' Ekrandaki MsgBox "Geçerli Zaman:" & MyTime, vbInformation, "VBA TIMEVALUE İşlevi" End Sub
Şimdi, VBA kodunu manuel olarak veya F5 tuşuna basarak çalıştırırsam, saat 16:50:45 seri numarası bölümünü gösterecektir.
Daha iyi anlamanız için önce VBA mesaj kutusu tarafından verilen sayıları hücrelerden birine gireceğim.
Şimdi kesin sonucu kontrol etmek için zaman formatını uygulayacağım.
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.
Saati görmek istiyorsanız, ona TIME biçimini uygulayın.
Dolayısıyla, ZAMAN DEĞERİ işlevi VBA ve Excel'de bu şekilde çalışır.
