VBA'da CDATE İşlevi
VBA CDATE, metin veya dize olan bir veri türünü bir tarih veri türüne dönüştüren bir veri türü dönüştürme işlevidir. Değer, tarih veri türüne dönüştürüldüğünde, tarihlerle oynayabiliriz.
CDATE sözdizimi
Aşağıda, VBA'daki CDATE işlevinin sözdizimi verilmiştir.
İfade: İfade, bir dize veya metin değeri veya tarih veri türüne dönüştürülecek bir değer içeren bir değişken olabilir.
CDATE, üzerinde çalıştığımız bilgisayardaki tarih ve saat biçimini tanımlar ve sağlanan değeri aynı tarih veri türüne dönüştürür. Yalnızca gün ve ay verirseniz ve yılı yok sayarsanız, CDATE işlevi, sistem yılını ve verilen gün ve ayı gösterir.
Aşağıdaki bölümde daha fazla örnek göreceğiz.
Excel VBA'da CDATE Fonksiyonu Nasıl Kullanılır?
Excel VBA'da CDATE İşlevi örnekleri.
Örnek 1
Size CDATE örneğini göstermeden önce, ilk olarak aşağıdaki koda bakın.
Kod:
Sub CDATE_Example1 () Dim k As String k = "25-12" MsgBox k End Sub
Yukarıda "k" değişkeni için değeri "25-12" olarak belirledim. Bu kodu çalıştırdığımda VBA'daki mesaj kutusunda aynı değeri göreceğiz.
Ancak bu, VBA CDATE işlevi kullanılarak tarihe dönüştürülebilir, bunun için bir değişken daha Tarih olarak tanımlayın.
Kod:
Dim k1 Tarih Olarak
Bu değişken için "k1", CDATE işlevini atar ve "25-12" dizesini tutan "k" değişkenini sağlar. Ve mesaj kutusu için "k" yerine "k1" değişken değerini gösterin.
Kod:
k1 = CDate (k)
Şimdi kodu çalıştırın ve sonucu bir mesaj kutusunda görün.
Yani sonuç "12/25/2019".
Sağladığımız değere yakından bakın. Yılda tedarik etmediğimiz “25-12” tedarik ettik.
Bu makaleyi yazarken benim sistemimde cari yıl 2019'du, dolayısıyla VBA CDATE “25-12” string değerini bugüne çevirerek sistem yılını 2019'a ekledi. Yani kesin sonuçları bu 12/25/2019 yani 25 gibi okumak inci Aralık 2019.
Örnek 2
Şimdi aşağıdaki koda bakın.
Kod:
Sub CDATE_Example2 () Dim k As Variant Dim kResult As Date k = 43889 kResult = CDate (k) MsgBox kResult End Sub
"K" değişkeni için yukarıdaki kodda, "43889" sayısını uyguladım. Hepimiz bunun bir seri numarası olduğunu biliyoruz, ancak başka bir değişken olan "KResult" için bu değeri "CDATE" işlevini kullanarak bugüne kadar dönüştürdük.
"KResult" değişkeninin aynı sonucu mesaj kutusunda gösterilir.
Kodu çalıştırın ve "CDATE" işlevinin büyüsünü görün.
Excel'deki tarihlere aşina değilseniz sonucu "28.02.2020" olarak gösterir, o zaman bunun nasıl olduğunu merak ediyor olmalısınız.
Örneğin, elektronik tablodaki hücrelerden birine aynı sayıyı (43889) girin.
Bunun için biçimi "GG-AA-YYYY" olarak uygulayın.
Şimdi Tamam'a tıklayın ve sonucu görün.
Şimdi sonuç bir seri numarasından bugüne değişti. Seri numarasının üstüne tarih formatı uyguladığımız için, ilgili tarihi gösterdi.
Yani bu, 43889 seri numarasının 28-02-2020 tarihine eşit olduğu anlamına gelir.
Dolayısıyla, VBA kodumuzda CDATE işlevi, dize değerini bir tarih veri türüne dönüştürerek aynı şeyi gerçekleştirmiştir.
Örnek 3
Bu örnek için aşağıdaki koda bakın.
Alt CDATE_Example3 () Dim Value1 Dim Value2 Dim Value3 Value1 = "24 Aralık 2019" Value2 = # 6/25/2018 # Value3 = "18:30:48 PM" MsgBox CDate (Değer1) MsgBox CDate (Değer2) MsgBox CDate ( Değer3) Son Alt
Bu kodu çalıştırdığımızda aşağıdaki sonuçları alacağız.
Böylece tüm değerler, CDATE fonksiyonu ile tarih veri tipine dönüştürülür.
Hatırlanacak şeyler
- CDATE yalnızca sayıları ve dize değerlerini tarih veri türüne dönüştürür.
- Bu, onu diğer işlevlerle kullandığımızda yararlıdır.
- Yanlış veri türü değeri sağlanırsa, tür uyuşmazlığı hatası alırız.
- Tarih ve saat seri numarasının bir parçası olduğundan, zamanı ve doğru zamanı dönüştürür.
