Tarih onayı VB6

Question

Kullanıcıların geçersiz tarihlerde kaymaya devam ettiği maskeli bir metin kutum var - ve bunlar SQL SERVER'e kaydedildiklerinde bir hata var. Bu Buluşmaya gibi 19/8/2000 koyabilirsiniz

If txtDate = "" Then 
    Exit Function 
ElseIf Not IsDate(txtDate) Then 
    Exit Function 
End If 

_lostFocus

benim doğrulama olduğunu ve geçer. Geçerli bir tarih olması için nasıl doğrulayabilirim?

Sorunu sorun - bu işlev asla mm/dd/yyyy biçimine dönüştürmez - otomatik olarak dd/mm/yyyy'ye dönüştürülür. Onu nasıl değiştiririm?

deyimi eğer biraz trhough çalıştırmadan önce i txtDate = Format (txtDate, "aa/gg/yyyy") için biçimlendirmek zaman - Tarih sadece bu durumda 8/19/2000 dönüştürülür alır

Metin kutusunun içinde tarih, temel olarak 8/19/2000 olarak değişir - neden bunu yapıyor

Answer 1

Neden kullanamıyorsanız Date.TryParse(txtDate, Date) Sonra ...? Başarılı olursa, geçerli bir tarihtir, aksi halde değil. Ayrıca 19/8/2000 geçerli bir tarih, bu yüzden geçer. Başka bir biçimde göstermek veya başka bir şekilde kullanmak istiyorsanız, istediğiniz biçimi ile ToString kullanın ... Metin kutusu içinde tarih, basitçe, 8/19/2000 olarak biçimlendiriyor, çünkü biçimlendiriyorsunuz ... Ayrıca, IsDate(txtDate) bu işe yaramazsa bir TextBox, IsDate(txtDate.Text)

kullanın