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.
tarih formatı
Sayın Hegu;
Aldığınız dizeyi tarih formatına çevirmek için şu kodu kullanabilirsiniz
Kolay Gelsin.
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.
Kusura bakmayın yapamadım. girenkarekod kısmından keserek aldığım için nereye yazacağımı bilemedim.
Son Düzenleme: 19/04/2011, 20:33, Düzenleyen: hegu.
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.
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.
Ellerine sağlık, Çok teşekkür ederim.
Konuyu Okuyanlar: 1 Ziyaretçi