Soru Bulunduğumuz Yılın ilk iki hanesini Msgbox'ta Göstermek

[bulentkars]

Arkadaşlar Merhaba;

Msgbox'ta Bulunduğumuz yılın ilk 2 hanesini göstermek.
Örneğin; Bulunduğumuz yıl 2024 ise Msgbox'ta 20 gösterecek. Bulunduğumuz yıl 1999 ise Msgbox'ta 19 gösterecek.
Yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler

 

[Biolightant]

Merhaba

Sub Makro1()
    MsgBox Left(DatePart("yyyy", Date), 2)
End Sub

 

[bulentkars]

Çok Teşekkürler Elinize sağlık.

 

[Korhan Ayhan]

Bunlar da olabilir..

Option Explicit

Sub Test()
    MsgBox Left(Year(Date), 2)
    MsgBox Mid(Year(Date), 1, 2)
    MsgBox Left(Format(Date, "yyyy"), 2)
    MsgBox Left(WorksheetFunction.Text(Date, "yyyy"), 2)
    MsgBox Evaluate("Left(Year(Today()),2)")
    MsgBox Evaluate("Left(Text(Today(),""yyyy""),2)")
End Sub

 

[bulentkars]

Teşekkürler Korhan Bey