Tarihi yazıya çevirmek..

[serkan]

Forumda sanki geçmişti diye hatırlıyorum ama bulamadım,Tutarı yazıya çevirmek ile ilgili fazlaca konu var ama benim derdim senet bastırırken senet tarihini yazıyla yazmam gerekiyor. Örneğin 01.01.2008 = bir ocak ikibinsekiz şeklinde bunu nasıl yapabilirim acaba.yardımlarınızı bekliyorum.

[sabanakman]

viewtopic.php?f=19&t=19079&p=109467 sayfasındaki Rakam fonksiyonunu kullanarak yapabilirsin.

Kod: Tümünü seç

function TarihOku(const Tar:TDateTime):String;
const Aylar:array[1..12]of String=('Ocak','Şubat','Mart','Nisan','Mayıs','Haziran','Temmuz','Ağustos','Eylül','Ekim','Kasım','Aralık');
var G,A,Y:Word;
begin
  DecodeDate(Tar,Y,A,G);
  Result:=Format('%s %s %s',[Rakam(G),Aylar[A],Rakam(Y)]);
end;

şeklinde bir kodla pratik bir şekilde halledebilirsin. ShowMessage(TarihOku(StrToDate('01.01.2008'))) şeklinde de kullanabilirsin.

[serkan]

Büyüksün baba..