Excel VBA DateSerial İşlevi
VBA'daki DateSerial işlevi , kullanıcılar tarafından sağlanan değerlerden tarihi döndürür. Yıl nedir, gün nedir ve ay nedir tedarik etmeliyiz. Sonuç, sisteminizin tarih formatına bağlı olacaktır.
DATESERIAL işlevinin söz dizimi aşağıdadır .
# 1 - Yıl: Yıl olarak tam sayı girmemiz gerekiyor? Tamsayılar sağlarken, aşağıdaki hususları aklımızda tutmamız gerekir.
- 0'dan 9999'a kadar sayılar sağlayabiliriz.
- 0'dan 99'a kadar bir ve iki basamaklı sayılar, 1930'dan 2029'a kadar işlem görecektir.
- Negatif tam sayı, 2000 yılından çıkarılacaktır. Örneğin, -1 verirseniz, 2000 - 1 = 1999 nedeniyle sonuç 1999 olacaktır.
# 2 - Ay: Ay olarak tam sayı girmemiz gerekiyor? Bu numarayı girerken aşağıdaki hususları aklımızda tutmamız gerekir.
- Yalnızca 1'den 12'ye kadar sayılar sağlayabiliriz.
- Sağlanan tamsayı değeri 0 ise, bu önceki yılın "Aralık" ayını temsil edecektir.
- Sağlanan tam sayı değeri -1 ise, bu önceki yılın "Kasım" ayını temsil edecektir. Bunun gibi, negatif değer arttığında, geri kalan yılı temsil etmeye devam edecektir.
- Verilen sayı 12'den fazlaysa, yani sayı 13 ise, bu sonraki yılın "Ocak" ayını temsil edecektir. Sayı 14 ise, sonraki yılın "Şubat" ayı kabul edilecektir.
# 3 - Gün: Gün olarak tam sayı girmemiz gerekiyor? Bu numarayı girerken aşağıdaki hususları aklımızda tutmamız gerekir.
- Mevcut ay günleri için 1'den 31'e kadar tam sayılar girebiliriz.
- Sayı 0 ise, önceki ayın son gününü temsil edecektir.
- Sayı -1 ise, önceki ayın ikinci son gününü temsil edecektir.
- Bu ayın son gününü +1 sağlarsanız, bu sonraki ayın ilk gününü temsil eder. Örneğin, Ağustos ayının son günü 31 ise ve günü 31 + 1 olarak verirseniz, Eylül ayının ilk gününü temsil eder.
VBA'da DATESERIAL İşlevi nasıl kullanılır?
Örnek 1
TARİHİ fonksiyonunu kullanmak için makro kodunu yazmaya başlayın.
Adım 1: Alt Prosedürü Başlatın
İlk olarak, aşağıda gösterildiği gibi bir VBA alt prosedürü oluşturun.
Adım 2: Değişkeni Bildirin
Şimdi bir değişkeni DATE olarak bildirin.
Adım 3: Bu değişkene DateSerial Fonksiyonu atayın.
Şimdi bu değişken için DATESERIAL işlevini atayın.
Adım 4: Şimdi DateSerial işlevinde yıl, ay ve gün değerlerini girin
2019 YILI tedariki için, AY tedariki için 08 ve GÜN tedariki için 05.
Adım 5: Sonucu Mesaj Kutusunda Göster
Şimdi mesaj kutusunda "Benim tarihim" değişkeninin sonucunu gösterin.
Kod:
Seçenek Açık Alt DateSerial_Example1 () Dim Mydate As Date Mydate = DateSerial (2019, 8, 5) MsgBox Mydate End Sub
6. Adım: Kodu çalıştırın
Şimdi aşağıdaki tarihi görmek için bu kodu çalıştırın.
Sonuç "8/5/2019" diyor. Benim sistem tarih formatım "AA-GG-YYYY" şeklindedir, bu nedenle sonuç da aynı formattadır.
VBA'daki FORMAT fonksiyonunu kullanarak tarihin formatını da değiştirebiliriz. FORMAT işlevini aşağıdaki gibi uygulayın.
Kod:
Seçenek Açık Alt DateSerial_Example1 () Dim Mydate As Date Mydate = DateSerial (2019, 8, 5) MsgBox Format (Mydate, "DD-MMM-YYYY") End Sub
Bu, "GG-AA-YYYY" biçimini uygulayacaktır ve sonuç aşağıdaki gibidir.
Örnek 2
Ayrıca değişkenleri tanımlayabilir ve bu değişkenlere değerleri sağlayabiliriz. Örneğin, aşağıdaki koda bakın.
Kod:
Sub DateSerial_Example2 () Dim Mydate As Date Dim My Year As Tamsayı Dim MyDay As Integer MyYear = 2019 MyMonth = 8 MyDay = 5 MyDate = DateSerial (MyYear, MyMonth, MyDay) MsgBox Biçimi (Mydate, "DD-MMM-YYYY ") Aboneliği Sonlandır
Instead of supplying year, month, and day directly to the DATESERIAL function, we have declared variables and assigned values to them. Then later, we have supplied variables to the DATESERIAL function.
This is how we can make use of variables in VBA to store values.
Example #3
Now we will experiment with the year. I will assign the year value as 1 and see the result.
Single & Double-digit numbers in YEAR represents a year from 1930 to 2029. So 01 means 2001, 02 means 2002, and so on.
Now let’s change the month number to 0 and see the result.
Look at the code here, Year is 2019, and the month is 0. But look at the result it says 05-Dec-2019, whereas a supplied year is 2019 it says 2018 i.e., the previous year.
Bunun nedeni, ayı 0 TARİH işlevi olarak sağladığımız için, ayı önceki yılın son ayına götürür ve yılı da buna göre değiştirir.
Bunun gibi, işlevin etkisini görmek için farklı sayılar deneyin.
Hatırlanacak şeyler
- Hangi sayının hangi yıl, ay ve günlük bakımı temsil ettiğini bilmeniz gerekir. Sözdizimi açıklamasını anlamak için dikkatlice okuyun.
- Sonuç, sisteminizin tarih formatına bağlı olacaktır. Değiştirilmiş bir sonuç istiyorsanız, BİÇİMLENDİR işlevini uygulamanız ve size kolaylık olması açısından tarih biçiminden bahsetmeniz gerekir.
