Geçerli tarih ve saat nasıl alınır?

Bu derste VBA kodunu kullanarak bugünün tarih ve saatini almanın farklı yollarını öğreneceğiz.

VBA’da bugünün tarihi

VBA’da geçerli tarihi almak için kullanabileceğiniz ” DATE ” adlı bir işlev vardır. Bu fonksiyonu kullandığınızda tıpkı aşağıdaki örnekte olduğu gibi sistem tarih ayarına göre güncel tarihi döndürür.

 Sub myMacro() Range("A1") = Date End Sub

Bu kodu çalıştırdığınızda A1 hücresine geçerli tarihi girer ve Excel’deki geçerli tarih biçimini kullanır.

Bu işlevi aynı zamanda aşağıdaki kod gibi bir mesaj kutusunda bugünün tarihini almak için de kullanabilirsiniz.

 Sub myMacro() MsgBox Date End Sub

Bugünün tarihi ve şimdiki saat

Benzer şekilde, bugünün tarih ve saatini almak için kullanabileceğiniz ” ŞİMDİ ” adlı bir işlev vardır. Gördüğünüz gibi aşağıdaki kodda A1 hücresindeki güncel tarih ve saati almak için kullandık.

 Sub myMacro() Range("A1") = Now End Sub

Geçerli saat

Şimdi, tarih ve saat yerine yalnızca geçerli saati almak istiyorsanız, now işleviyle birlikte başka bir “Format” işlevini ( bu işlev hakkında daha fazla bilgiyi burada bulabilirsiniz ) kullanmanız gerekir.

Yukarıdaki kodda format fonksiyonunun değerini sağlamak için now fonksiyonunu kullandık ve ardından sadece zaman için bir format kullandık.

 Sub myMacro() Range("A1") = Format( Now , "HH:MM Am/Pm") End Sub

Bugünün tarihinin biçimini değiştirme (örnek: YYYYAAGG)

Geçerli tarihin biçimini değiştirmek için biçim işlevini de kullanabilirsiniz. Aşağıdaki kodda format fonksiyonunu kullanıp formatı “YYYYAAGG” olarak belirttik.

 Sub myMacro() Range ("A1"). Value = Format ( Date , "YYYY/MM/DD") End Sub

Not: Yukarıdaki kodda A1 hücresine tarih girmek için value özelliğini kullandık.