tarih formatı

arkadaşlar ekte göndermiş olduğum örnekte karekod kısmından miad tarihini keserek alıyorum. fakat bunu tarih formatında olması için ne yapabilirm?
teşekkür ederim.

Sayın Hegu;
Aldığınız dizeyi tarih formatına çevirmek için şu kodu kullanabilirsiniz

Degisken= Format(AldığımDize,"DD/MM/YYYY")

Deneyerek dönerseniz memnun olurum.
Kolay Gelsin.

Sayın Kural,
Kusura bakmayın yapamadım. girenkarekod kısmından keserek aldığım için nereye yazacağımı bilemedim.

Sayın Hegu;
Formun kodlarını aşağıdakiler ile değiştirin. Tarih_Miad alanı tarih veri biçimine dönüştürülmüştür.
Kolay Gelsin.

Option Compare Database

Private Sub GirenKarekod_LostFocus()

On Error GoTo Err_GirenKarekod_LostFocus

Dim tarih_miad As Date

GirenBarkod = Mid(GirenKarekod, 4, 13)

GirenMiadi = Mid(GirenKarekod, 39, 2) & "/" & Mid(GirenKarekod, 37, 2) & "/" & "20" & Mid(GirenKarekod, 35, 2)

 

tarih_miad = Format(GirenMiadi, "DD/MM/YYYY")

 

Exit_GirenKarekod_LostFocus:

    Exit Sub



Err_GirenKarekod_LostFocus:

    MsgBox Err.Description

    Resume Exit_GirenKarekod_LostFocus

End Sub

Sayın Kural,
Ellerine sağlık, Çok teşekkür ederim.