/ / Excel VBA Tarih ve Saat

Excel VBA Tarih ve Saat

Yıl, Ay, Bir Tarih Günü | DateAdd | Mevcut Tarih ve Saat | Saat, Dakika, Saniye | Zaman değeri

Nasıl çalışacağınızı öğrenin tarihler ve saatler içinde Excel VBA.

Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin. Kod satırlarını çalıştırmak için, sayfadaki komut düğmesine tıklayın.

Yıl, Ay, Bir Tarih Günü

Aşağıdaki makro bir tarihin yılını alır. Bir tarihi bildirmek için Dim ifadesini kullanın. Bir tarihi başlatmak için DateValue işlevini kullanın.

Kod:

Dim exampleDate As Date

exampleDate = DateValue("Jun 19, 2010")

MsgBox Year(exampleDate)

Sonuç:

Excel VBA'da bir Yılın Yılı

Not: Bir tarihin ayını ve gününü almak için Ay ve Gün'ü kullanın.

DateAdd

Bir tarihe birkaç gün eklemek içinDateAdd işlevi. DateAdd işlevinin üç argümanı vardır. Gün eklemek için ilk argüman için "d" yi girin. 3 gün eklemek için ikinci argüman için 3 doldurun. Üçüncü argüman, gün sayısının ekleneceği tarihi temsil eder.

Kod:

Dim firstDate As Date, secondDate As Date

firstDate = DateValue("Jun 19, 2010")
secondDate = DateAdd("d", 3, firstDate)

MsgBox secondDate

Sonuç:

DateAdd

Not: Bir tarihe birkaç ay eklemek için "d" yi "m" olarak değiştirin. İmlecinizi Visual Basic Düzenleyicisi'nde DateAdd öğesine yerleştirin ve diğer aralık belirticilerindeki yardım için F1'i tıklatın. Tarihler ABD Formatında. Aylar önce, İkinci günler. Bu tür format, windows bölgesel ayarlarınıza bağlıdır.

Mevcut Tarih ve Saat

Geçerli tarihi ve saati almak için Şimdi fonksiyonunu kullanın.

Kod:

MsgBox Now

Sonuç:

Mevcut Tarih ve Saat

Saat, Dakika, Saniye

Bir saatin saatini alın, Saat işlevini kullanın.

Kod:

MsgBox Hour(Now)

Sonuç:

Güncel Saatin Saati

Not: Bir dakikanın dakikasını ve saniyesini almak için Dakika ve Saniye'yi kullanın.

Zaman değeri

TimeValue işlevi, bir dizeyi bir zaman seri numarasına dönüştürür. Zamanın seri numarası 0 ile 1 arasında bir sayıdır. Örneğin, öğlen (günün yarısı) 0,5 olarak gösterilir.

Kod:

MsgBox TimeValue("9:20:01 am")

Sonuç:

Zaman değeri

Şimdi, Excel'in içsel olarak 0 ile 1 arasında sayı olarak işlediğini açıkça görmek için, aşağıdaki kod satırlarını ekleyin:

Dim y As Double
y = TimeValue("09:20:01")
MsgBox y

Sonuç:

Zaman seri numarası

Ayrıca oku: