MySQL için tarih dönüştürme

[Battosai]

MySQL için tarih formatı bilenler bilir yıl-ay-gün şeklindedir...Dolayısıyla sorgularda ve diğer SQL kodlarında tarihinizi bu formata çevirmeniz gerekiyor...Bunun için aşağıdaki fonksiyon işinizi görücektir.

Kod: Tümünü seç

function TForm1.TarihSet(Tarih:TDate): string;
var
  myYear, myMonth, myDay : Word;
begin
  DecodeDate(Tarih, myYear, myMonth, myDay);
  Result:=IntToStr(myYear)+'-'+inttostr(myMonth)+'-'+inttostr(myDay);
end;

Kullanım:

Kod: Tümünü seç

Sorgu('select*from tabloadi where Gtarih<='''+TarihSet(date)+''' ');

[DarkEternal]

Kod: Tümünü seç

function SQLTarih(tarih:TDateTime):string;
begin
   result := FormatDateTime('yyyy-mm-dd',tarih);
end;

şeklinde kullanıyorum ben de, sonuç aynı zaten...