Vba'da datevalue fonksiyonu nasıl kullanılır (örnekle)

Belirli bir dizeden tarih değerini döndürmek için VBA’daki DateValue işlevini kullanabilirsiniz.

Bu işlevi pratikte kullanmanın yaygın bir yolu aşağıda verilmiştir:

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

Bu özel makro, tarih değerini A2:A7 aralığındaki tarih ve saatlerden çıkarır ve bu tarih değerini karşılık gelen B2:B7 aralığında döndürür.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: VBA’da DateValue işlevi nasıl kullanılır?

Excel’de aşağıdaki tarih/saat sütununa sahip olduğumuzu varsayalım:

A sütunundaki her tarih saatinden tarihi çıkarmak ve B sütununda görüntülemek istediğimizi varsayalım.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

B Sütunu, A sütunundaki her tarih saat için tarih değerini görüntüler.

Örneğin:

• DateValue işlevi, 01/01/2023 10:15:34 tarihinden itibaren 01/01/2023 değerini döndürür
• DateValue işlevi, 01/03/2023 12:34:18 PM’den 01/03/2023 değerini döndürür
• DateValue işlevi, 01/05/2023 8:23:00 tarihinden itibaren 01/05/2023 değerini döndürür

Ve benzeri.

Not : VBA’daki DateValue işlevinin tam belgelerini burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: tarihler nasıl karşılaştırılır
VBA: Tarihten ay adı nasıl alınır
VBA: Sayı tarihten büyük