VBA DateValue İşlevi nedir?
Bir DateValue işlevi, Excel VBA'da Tarih / saat işlevi kategorisi altında yerleşik bir işlevdir. VBA'da hem VBA işlevi hem de çalışma sayfası işlevi olarak çalışır. Bu işlev, Dize gösterimi biçiminde sağlanan Date'in seri numarasını veya değerini, Date dizesi tarafından sağlanan saat bilgisini yok sayarak döndürür. Excel'de iki farklı şekilde kullanılır. Bu işlev, bir çalışma sayfası hücresine giren bir çalışma sayfası formülü olarak kullanılır. VBA uygulamasında makro kodu olarak kullanılır, Microsoft Excel ile ilişkilendirilmiş Visual Basic Editor aracılığıyla girilir.
Bu yazımızda VBA DATEVALUE örneklerini ve nasıl kullanılacağını net bir açıklama ile öğreneceğiz.
VBA Datevalue Fonksiyonunun Açıklaması
VBA'da DATEVALUE aşağıdaki sözdizimini kullanır.
Bu işlev yalnızca tek Bağımsız Değişken veya Parametre kullanır
- Tarih : Dize biçiminde temsil edilen tarihtir
- Döndürür: Bu işlev, bir VBA işlevi olarak kullanıldığında tarihin değerini döndürür. Çalışma sayfası işlevi olarak kullanıldığında tarih değerini döndürür
VBA DateValue işlevi, geçerli bir Excel biçiminde belirtilen metin biçiminde temsil edilen verilerin yorumlanmasını sağlayabilir. Dize, haftanın gününün metin temsilini içeriyorsa, tarih değerini döndüremez.
VBA DateValue işlevinin faydaları, dizeden tarih değerini ayıklamak ve tarihi saat ile tek tarihe dönüştürmektir. Basitçe, zamanla birlikte bir tarih verildiğinde, bu işlev zaman değerinden kaçınarak yalnızca tarih değerini verebiliriz.
Excel VBA DATEVALUE Nasıl Kullanılır?
Excel'de DateValue işlevini kullanmak için önce VBA düzenleyicisini açmanız gerekir.
Komut düğmesinin, VBA programının satırlarını ona eklemek için Excel çalışma sayfasına yerleştirilmesi gerekir. Programın satırlarını uygulamak için, kullanıcının excel sayfasındaki komut düğmesine tıklaması gerekir. Programdan geçerli bir çıktı almak için argüman aracılığıyla geçerli girdi verilir. Örneğin, aşağıdaki kod, tarih değerini VBA'daki metinden çıkarmak için DateValue işlevini çalıştırmak için bir makronun oluşturulmasına yardımcı olur.
VBA programı:
Alt Datebutton () Dim myDate As Date myDate = DateValue ("15 Ağustos 1991") MsgBox Date (myDate) End Sub
Bu kod, verilen girişten 15 olarak tarih verir.
Excel VBA DATEVALUE örnekleri
Aşağıda, Excel VBA'da DateValue örnekleri verilmiştir.
Örnek 1 - Bir Tarihten Gün, Ay ve Yılı Elde Etme
Programı VBA'da oluşturmak ve yürütmek için birkaç adım izlenir. Bunlar şunları içerir
Adım 1: Geliştirici Sekmesine gidin, imleci Excel sayfasındaki bir hücreye yerleştirin ve 'Ekle' seçeneğine tıklayın ve şekilde gösterildiği gibi ActiveX Kontrolü altındaki 'Komut Düğmesi'ni seçin.
Düğmeyi istediğiniz yere sürükleyin ve özellikler penceresinden başlığa Datebutton olarak verin.
Adım 2: Düğmeye çift tıklayın; VBA projesine yeniden yönlendirecek ve Özel Alt-komut düğmesi ile son alt arasındaki kodu yazacaktır.
Tarih, ay ve yılı almak için kod aşağıdaki gibi geliştirilmelidir.
Kod:
Private Sub Datebutton1_Click () Dim Exampledate As Date Exampledate = DateValue ("April 19,2019") MsgBox Date MsgBox Year (Exampledate) MsgBox Month (Exampledate) End Sub
Bu kodda, Datebutton1_Click () addır ve örnek tarih, Date veri türü ve çıktıyı görüntülemek için Msgbox ile değişkendir.
Adım 3: Kod geliştirilirken, VBA tipi uyumsuzluk hataları oluşacak ve bunlarla ilgilenilmesi gerekiyor.
Adım 4: Bu adımda, çalıştır seçeneğine tıklayarak programı çalıştırın.
Ya da Debug menüsü altında Step Into seçeneğini seçerek programı adım adım kontrol edebilir veya hatalarını ayıklayabiliriz. Kodumuzda hata yoksa çıktıyı görüntüler.
Adım 5 : Program çalıştırıldığında, ilk olarak metin girişinde verilen tarih ile mesaj kutusunu görüntüler. Ardından, yıl değerini tekrar görmek için Tamam'a tıklayın, ay değerini görmek için mesaj kutusunda Tamam'a tıklayın.
Örnek 2 - Tarihin Farklı Bölümlerini Almak için DatePart'ı Kullanma
Adım 1: Excel Geliştirici Sekmesine gidin, imleci Excel sayfasındaki bir hücreye yerleştirin ve 'Ekle' seçeneğine tıklayın ve şekilde gösterildiği gibi ActiveX Kontrolü altındaki 'Komut Düğmesi'ni seçin.
Adım 2: Düğmeyi sürükleyin ve özellikler altında başlığı DatePart olarak verin.
Bu düğmeye çift tıklayın. Visual Basic Editor sayfasına yönlendirir ve aşağıdaki gibi görüntülenir.
Step 3: Develop the code using the DatePart with DateValue, as shown in the figure.
Code:
Private Sub Datepart1_Click() Dim partdate As Variant partdate = DateValue("8/15/1991") MsgBox partdate MsgBox Datepart("yyyy", partdate) MsgBox Datepart("dd", partdate) MsgBox Datepart("mm", partdate) MsgBox Datepart("q", partdate) End Sub
In this program, DatePart1 is the macro name, and partDate is the argument name with data type ‘variant.’ For displaying year, date, month, and a quarter, the format is applied as “yyyy,” “d,” “m,” and “q.” If we make any mistake in the format, it displays the following error.
Step 4: After successful debugging of the program, run the program by clicking on the run button to use excel shortcut key F5.
The code first displays the full date, and then after clicking every OK from the msgbox, it shows the year value after that Date value, Month Value, Quater Value, respectively.
Things to Remember About the VBA DATEVALUE
The following things must be remembered while using the DateValue function in Excel VBA
- Run time error 13 with message Type Mismatch is displayed when the date provided to the DateValue function is not able to convert into a valid date. We need date is a proper text format
- When we try to get the only date from the string argument with code ‘msgbox date (argument name),’ it displays the type mismatch error.
- We can see the output of the DateValue function without opening the VBA editor. It is done by clicking the command button and select the macro created for the respective program.
- Değerleri almak için DatePart kullanıldığında, uygun format izlenmelidir. Aksi takdirde, mesaj geçersiz prosedür çağrısı veya argüman ile 'çalışma zamanı hatası 5'e yol açar.
