Tarih düzenleme

[Serhat]

Selamlar;


Databaye tarih formatını 20152512 diye kaydediyorum daha sonra copy ile ayırıp tarih fonksiyonuna döndürmeye çalışıp ve sonrada 25.12.2015 olarak düzenlemek istiyorum fakat içinden çıkamadım nerede hata yapıyorum

Kod: Tümünü seç

StrToDate(FormatDateTime('dd.mm.yyyy', StrToDate(Copy(tarih, 1, 4) + '.' + Copy(tarih, 5, 2)+ '.' + Copy(tarih, 7, 2))));

[SimaWB]

EncodeDate

[ihalilcoban]

Forma 2 adet edit bir adet buton ekle

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
Yil,Ay,Gun:String;
begin
Yil:=Copy(Edit1.Text, 1, 4);
Ay:=Copy(Edit1.Text, 5, 2);
Gun:= Copy(Edit1.Text, 7, 2);
Edit2.text:=FormatDateTime('dd.mm.yyyy',StrToDate( Ay + '.' + Gun + '.' + Yil));

end;
end.

Bu şekilde işine yarar sanırım.