Tarihi Sayıya çevirme

[ademcicek]

Herkese merhaba.
benim elimde 19.07.2005 şeklinde bir tarih var.
bu tarihi 190705 şekline nasıl çevirebilirim.
herkese kolay gelsin.
teşekür ederim.

[yuksel2004]

FormatDateTime fonksiyonuyla halledilebilir sanırım..

[aslangeri]

FormatDateTime fonksiyonuyla halledilebilir sanırım..

+1

[aLonE CoDeR]

ya da AnsiReplaceText...

[ademcicek]

olayı şöyle çözdüm.

Kod: Tümünü seç

function TfmGidenTren.TarihiDonustur(Tarih: TDate; Secim: Byte): string;
var
  Yil, Ay, Gun: Word;
  Ayy, Gunn, Yill: string;
begin
  DecodeDate(Tarih, yil, ay, gun);

  case Secim of
    0:
      begin
        if Ay > 9 then
          Ayy := IntToStr(Ay)
        else
          Ayy := '0' + IntToStr(Ay);
        if Gun > 9 then
          Gunn := IntToStr(Gun)
        else
          Gunn := '0' + IntToStr(Gun);
        Result := Ayy + Gunn
      end;
    1:
      begin
        if Ay > 9 then
          Ayy := IntToStr(Ay)
        else
          Ayy := '0' + IntToStr(Ay);
        if Gun > 9 then
          Gunn := IntToStr(Gun)
        else
          Gunn := '0' + IntToStr(Gun);

        Yill := Copy(IntToStr(Yil), 3, 2);

        Result := Gunn + Ayy + Yill;
      end;
  end;
end;

herkese kolay gelsin.

[aslangeri]

şöyle daha iyi olmazmıydı.

Kod: Tümünü seç

function TfmGidenTren.TarihiDonustur(Tarih: TDate; Secim: Byte): string;
begin
  case Secim of
    0:result:=formatdatetime('ddmm',tarih);
    1:result:=formatdatetime('ddmmyy',tarih);
  end;
end;

................................................

[Hancet]

S.A.
arkadaşlar function yazmayı pek bilmiyorum. Ama bu kodlarda aynen istediğiniz işi görüyor

Kod: Tümünü seç

var
  s:string;
begin
   s:=datetostr(date);
   showmessage(copy(s,1,2)+copy(s,4,2)+copy(s,9,4));
end;

[aslangeri]

s.a.
Hancet
eğer tarih formatı farklı ise sizin kodunuz hatalı çalışacaktır.
tarih formatının dd.mm.yyyy olması durumunda çalışan kodunuz
tarih fromatının d.m.yy olması durumunda çalışmayacaktır.

kolay gelsin.

[Hancet]

benim elimde 19.07.2005 şeklinde bir tarih var.
bu tarihi 190705 şekline nasıl çevirebilirim.

soru böyle olduğu için bende böyle bir mantık kullandım
yoksa dediğin gibi diğer durumda benim komut çalışmayacak

[ender_arslanturk]

Windows Tarih Sistemi Değiştirileceği İçin Şöylede Yapılabilir...

Formda 1 Adet DateTimePicker1, 1 Adet Edit1, 1 Adette Button Olduğunu Varsayarsak

butonun Click Olayına

var
i:integer;
begin
Edit1.Text:=Datetostr(DateTimePicker1.Date);
edit1.SelStart:=0;
edit1.sellenght:=1;
For i:=0 To Lenght(Edit1.Text) Do
begin
if edit1.seltext<>'.' then edit2.Text:=Edit2.Text+Edit1.Seltext;
edit1.SelStart:=Edit1.Selstart+1;
edit1.selenght:=Edit1.Selstart+1;
end;
end;


şeklinde olabilir....

Saygılarımla,

[aslangeri]

s.a.
@ender_arslanturk kardeşim tarih sistemi değişirse demişsin genede "." kullanmışsın. tarih sistemi değiştiğinde "." yerine "/" kullandığında senin kodlarında çalışmayacaktır.
(datetime picker formatı windowsdan alıyor.)
eğer "."yerine dateseperator umarım doğru yazmışımdır kullanılması da bizi tarih formatından bağımsız kılar.
+
bir satırlık bir kod yazmak varken neden uzun bir procedure yazalım.
(kendimizi geliştirmek farklı düşünme yolları... )

Kolaygelsin.

[miskin]

tartismayla uzaktan bir ilgisi oldugu icin yaziyorum.

Indy nin bu konu ile ilgili bilesenleri var onlari indirirseniz, bircok tarih cevirme konusunda yardimci olacaktir.

Aslinda senin elinde öyle bir tarih yok öyle bir string var. o string'i alirsin icindeki seperatorlerin yerini bulup yok edersin.

Yada Yükselin dedigi gibi söyle cözülebilir.

function StringToTarih(sTarih: string): string;
begin
DateSeparator := FindDateSeperator(sTarih);
try
result := FormatDateTime('ddmmyy', StrToDate('sTarih'));
except
end;
end;

function FindDateSeperator(sTarih: string) : string;
var
i: Integer;
begin
i := 1;
while (i <= Length(sTarih)) and (S in ['0'..'9']) do
Inc(i);
if (i =! 1) and i <= Length(sTarih) then
result := sTarih
else
result := ''
end

miskin

[sadettinpolat]

ben oyumu aslangerinin yazdığı koda veriyorum

hem kolay anlaşılır (bir yer hariç) hem de değişik tarih formatlarına uygun.

[miskin]

ben oyumu aslangerinin yazdığı koda veriyorum

hem kolay anlaşılır (bir yer hariç) hem de değişik tarih formatlarına uygun.

Aslangerinin kodu uyguladim orda gördügüm hata, soruda tarih olarak verilen string, string önce Tarihe cevrilmesi lazim sonra string'e.

Neyse Aslangeri dogru görmüs, ben yine acele etmisim. Bende oyumu aslangeriye verdim

miskin

[aslangeri]

ben oyumu aslangerinin yazdığı koda veriyorum

hem kolay anlaşılır (bir yer hariç) hem de değişik tarih formatlarına uygun.

falza bir seçenek olmadığı (ve basit bir örnek olması) için 0 ve 1 kullandım.