Tarih değerini Çevirme..

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
meren
Üye
Mesajlar: 71
Kayıt: 20 Ara 2004 03:44

Tarih değerini Çevirme..

Mesaj gönderen meren »

Merhaba arkadaşlar,

şimdi benim 3 tane veri tabanım var ve ben bunları tek bir yerde bazı bilgileri çekerek topluyorum... 2 veri tabanım zaten var olan SQL serverdan geliyor ve buradaki tarih değerleri int olarka görünüyor yani mesela

38353 =(01.01.2005) sayı olarak geliyor 38353, bunlarda bir sorunum yok ortak olan table'ada ben bunları olduğu gibi aktarıyorum... fakat 3. database'i kendim olu$turdum... bir yerden kayıt girdiriyorum...

MASKEDIT kullandım 00/00/0000 $eklinde yaptım görünümünü.. ben $imdi buraya girdiğim örnek 01.01.2005 değerini benim olu$turduğum databasede int'e çevirip yazmasını istiyorum yani 38353 olarak yazmasını.. fakat bir türlü yapamadım ne yapmam gerkeiyor bu konuda yardımcı olabilirmisiniz.. bu arada field => TARİH = LONG INTEGER yaptım
P206
Kıdemli Üye
Mesajlar: 395
Kayıt: 17 Haz 2003 12:36
Konum: İstanbul

Mesaj gönderen P206 »

Bu işine yarar heralde

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
tarih : Tdate;
begin
        tarih:=StrToDate ('01.01.2005');
        showmessage( FloatToStr(tarih))

end;
I love my car.
Blog Yaptık
meren
Üye
Mesajlar: 71
Kayıt: 20 Ara 2004 03:44

Mesaj gönderen meren »

peki bunu database tarafında kayıt ettirirken..?

TableTarih.AsFloat := floattostr(maskedit1.Text);

??
P206
Kıdemli Üye
Mesajlar: 395
Kayıt: 17 Haz 2003 12:36
Konum: İstanbul

Mesaj gönderen P206 »

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
tarih : Tdate;
begin
        tarih:=StrToDate (MaskEdit1.Text);
         IBQuery1.Fields[0].AsFloat :=tarih

end;
Bu şekilde kullanabilirsin, Senin dedğin şekilde kullanamazsın Float u stringe çevirmek için o kod. Elindeki değer string bir değer
I love my car.
Blog Yaptık
Cevapla