Basit! Neden msgBox'ım cari sene dönmüyor?

Question

Kullanıcıların bir okul projesi için yaşlarını doğrulamaya çalışıyorum ve Yıl (Now()) öğesinin gerçekten geçerli yılı döndürmesiyle ilgili sıkıntılarım var.

Private Sub cmdOldEnough_Click() 

Dim strCalculateAge As String 
Dim dtToday As Date 

strCalculateAge = Right(inpAge, 4) 
dtToday = Year(Now()) 

MsgBox dtToday 

End Sub 

Geçerli kod, 07/08/1905 tarihini döndürür. Çok teşekkürler!

Answer 1

Bir Date gerekmez, ihtiyacınız olan bir Long: Bir tarih değişkene cari yıl nedenle olsun 2016` `geçiyoruz

Sub marine() 
    Dim dtToday As Long 

    dtToday = Year(Now()) 

    MsgBox dtToday 
End Sub