Mar.29

SQL den alınan tarih bilgisini düzenleme

Bildiğiniz üzere hem MSSQL hem de MySQL den bir tarih alanını çektiğimizde bize TR formatında gelmez.(default server ayarları ile). Bize dönen string 2007-03-28 gibidir. Bunu bizim tarih formatımız olan 28-03-2007 şekline çevirmek için aşağıdaki fonksiyonu kullanabilirsiniz.

İ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.

Function
Share this Story:
  • facebook
  • twitter
  • gplus

About Muzaffer Ali AKYIL

Merhabalar, Adım Muzaffer Akyıl, Bilgi teknolojileri ile içli dışlı, teknolojiyi yakından takip eden, web ve masaüstü programlama ile uğraşıp, saatlerce kastığı şeyleri hiç bir karşılık beklemeden paylaşmayı amaç eden biriyim.


Yorumlar(2)

  1. Erdinç Demir
    3879 days önce

    tablom lokal mysql de ama ona dinamik bağlantı ile Access2007 den bağlanıyorum. oluşturduğum formdan tarihi gg.aa.yy şeklinde nasıl girebilirim ???

  2. muzaffer
    3879 days önce

    Merhaba Erdinç bey, Size hangi formatta döndüğünü belirtirseniz sizin için ufak bi function yazabilirim.

    Saygılar…

Bir yorum bırak

 

Comment