SORUN: beklenmeyen sonuçlar ýsdate ile 2 basamaklý yýllarý kullanma 1.000.000

2 Haneli içeren bir tarih aktarýlýrsa, IsDate() iþlevi beklenmedik sonuçlar döndürebilir.

VBA tarih iþlevleri ýsdate, Biçim ve CDateCVDate OLE Otomasyonu içinde (OleAut32.dll) bulunan bir iþlevi kullanýr. Bu iþlev tüm olasý tarih biçimleri, tarih gösteren dize ayrýlmýþ deðerleri tokenizing arar ve Giriþ bir tarihi temsil edilebilir olup olmadýðýný gösteren bir Boole deðeri döndürür.

Bu iþlevi, bir 2 haneli yýl içeren bir tarihi yorumlamak için kullanýrken hatýrlamanýz önemlidir. Çeþitli tarih biçimleri (yani, aa/gg/yy, yy/aa/gg, "Gg AAA YY", "YY AAA GG" vb.) farklý yerel ayarlar'ý kullanýn ve iþlevi geçerli bir tarih bulunamadý veya tüm olasýlýklarýný adres kalmadý kadar tüm pozisyonlar rakamlarý iþlevi bu nedenle çalýþýr.

Þubat 29 belirli bir yýla ait geçerli bir tarih olup olmad???n? çek ýsdate iletme iþlevi, 2 haneli içeren bir tarih, beklenmeyen sonuçlar elde edebilirsiniz bir örnektir. Daha belirli için <a0></a0>, ýsdate Fonksiyonun belirsiz bir geçirmeden "29-Þub-01 gibi" tarihi, tüm kullanýlabilir tarih biçimlerini denetimi ýsdate neden ve Þubat 1, 2029 geçerli bir tarih olduðundan DOðRU dönün. Ancak, tam yýl içinde "29-Þub-2001", ardýndan ýsdate geçirilir bu geçersiz bir tarihi ve bu nedenle YANLýÞ döndürür belirleyebilirsiniz.

ýsdate iþlevi, dönüþtürülmüþ tarihi IsDate() iþlevine geçirmeden önce 4 basamaklý bir yýl tarihi dönüþtürmek için geçici bir sarmalayýcý fonksiyon oluþtur.

Bu davranýþ tasarým yüzündendir.

OleAut32.dll fonksiyonlarýnda "yýl kayan" bir standart varsayýlan olarak, tüm aralýðý 0 - 2 basamaklý yýlda 29 2000s düþünülür ve 30-99 arasýndaki aralýðýn içinde 1900s dosyalarý, kullanýn. Bu, kolayca aþaðýdaki sarmalayýcý iþleviyle kýlýnabilir.

ýsdate iþlevi ile ilgili belgelere, tanýmladýðý davranýþ tasarlanmýþ.

IsDate(expression)

Davranýþý yeniden oluþturma adýmlarý

1. Bir yeni VB Standart EXE proje baþlatýn. Varsayýlan olarak, Form1 oluþturulur.
2. Bir KomutDüðmesi (Command1) Form1'ýn getirin.
3. Aþaðýdaki kodu Form1 bildirimleri bölüme yapýþtýrýn.
   

      Private Sub Command1_Click()
      Dim bIsDate As Boolean
      Dim sDate As String
   
       sDate = "29 FEB 01"
       bIsDate = IsDate(sDate)
       If bIsDate Then
          MsgBox "Valid Date Found : " & Format(sDate, "mm/dd/yyyy")
       Else
          MsgBox sDate & " Is Not a Valid Date"
       End If
      End Sub
   						

4. Projeyi çalýþtýrýn ve Command1 týklatýn için F5 ' ý seçin. Aþaðýdaki ileti görüntülenir:
   Geçerli tarih bulundu: 02/01/2029

Adýmlarý, sorun kaçýnýn.

1. Önceki kod <a0>Form1</a0> modülünde bir sarmalayýcý iþlevi kullanýmýný aþaðýdaki kodla deðiþtirin:

   
      Private Sub Command1_Click()
      Dim bIsDate As Boolean
      Dim sDate As String
   
       sDate = ConvertYear("29 FEB 01")
       bIsDate = IsDate(sDate)
       If bIsDate Then
          MsgBox "Valid Date Found : " & Format(sDate, "mm/dd/yyyy")
       Else
          MsgBox sDate & " Is Not a Valid Date"
       End If
    
      End Sub
   
      Private Function ConvertYear(sDate As String) As String
      Dim sYear As String
   
      ' This function currently uses the same sliding year as OleAut32.dll, 
      ' but can be customized to fit the needs of the application.
   
      sYear = Right(sDate, 2)
      If Val(sYear) <= 29 Then   
        ConvertYear = Left(sDate, 6) & " 20" & sYear
      Else
        ConvertYear = Left(sDate, 6) & " 19" & sYear
      End If
   
      End Function
   					

2. Projeyi çalýþtýrýn ve Command1 seçin. Beklendiði gibi aþaðýdaki ileti görüntülenir:
   29 Þub 2001 geçerli bir tarih deðil.