İlk fonksiyon sadece tarihi, ikinci fonksiyon ise hem tarihi hemde zamanı çevirir.


'Sadece Tarihi Çevirir.
Function SqLDate(Tarih As String)
Dim Gun As String
Dim Ay As String
Dim YIL As String
Tarih = left$(Tarih, 10)
Gun = left$(Tarih, 2)
Ay = Mid$(Tarih, 4, 2)
YIL = right$(Tarih, 4)
SqlDate = YIL & "-" & Ay & "-" & Gun
End Function
'Hem Tarihi Hemde Zamanı Çevirir
Function SqLDateTime(DateTime As String)
Dim Gun As String
Dim Ay As String
Dim YIL As String
Dim ssaaT As String
Dim Saat As String
Dim Dakika As String
Dim Saniye As String
ssaaT = right$(DateTime, 9)
DateTime = left$(DateTime, 10)
Gun = left$(DateTime, 2)
Ay = Mid$(DateTime, 4, 2)
YIL = right$(DateTime, 4)
SqlDateTime = YIL & "-" & Ay & "-" & Gun & ssaaT
End Function


Kolay Gelsin.