Tarihi Sayıya çevirme
ademcicek21.07.2005 - 11:52:22
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.
 
yuksel200421.07.2005 - 11:58:30
FormatDateTime fonksiyonuyla halledilebilir sanırım..
 
aslangeri21.07.2005 - 14:41:39
FormatDateTime fonksiyonuyla halledilebilir sanırım..

+1
 
bLue aLonE21.07.2005 - 15:12:59
ya da AnsiReplaceText...
 
ademcicek21.07.2005 - 17:00:22
olayı şöyle çözdüm.
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.
 
aslangeri22.07.2005 - 13:58:29
şöyle daha iyi olmazmıydı.

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

................................................
 
Hancet22.07.2005 - 19:37:45
S.A.
arkadaşlar function yazmayı pek bilmiyorum. Ama bu kodlarda aynen istediğiniz işi görüyor
var
s:string;
begin
s:=datetostr(date);
showmessage(copy(s,1,2)+copy(s,4,2)+copy(s,9,4));
end;
 
aslangeri22.07.2005 - 20:31:26
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.
 
Hancet23.07.2005 - 16:37:21
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_arslanturk26.07.2005 - 00:59:38
Windows Tarih Sistemi Değiştirileceği İçin Şöylede Yapılabilir...

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

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.... :D

Saygılarımla,
 
aslangeri26.07.2005 - 12:35:45
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.
 
miskin26.07.2005 - 13:39:06
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[I] in ['0'..'9']) do
Inc(i);
if (i =! 1) and i <= Length(sTarih) then
result := sTarih[i]
else
result := ''
end

miskin
 
sadettinpolat26.07.2005 - 15:51:22
ben oyumu aslangerinin yazdığı koda veriyorum :)

hem kolay anlaşılır (bir yer hariç) hem de değişik tarih formatlarına uygun.
 
miskin26.07.2005 - 16:09:43
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
 
aslangeri26.07.2005 - 17:04:26
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.
:P
 
NOT : Bu sayfa google'un siteyi indekslemesi içindir. www.delphiturkiye.com/forum/ adresini kullanınız!
1998-2006 www.delphiturkiye.com