00.00.1900 Tarih Sorunu

[pro_imaj]

Merhaba
Arkadaşlar Bir programa ara program yazıyorum
Program girilen tarihi Exceldeki gibi çeviriyor
yani 01.01.1900 üstüne eklenecek şekilde sonuç çıkıyor.
Ve ben bu değeri tekrar çevirip tarih olarak göstermek istiyorum.

Programa girilen tarih

Örn Programa
05.08.2005 girildiğinde program mssql veri tabanına onu
38500 olarak yazıyorur.

Benim yazdığım programdada ben bu tarihe bağlanıyorum ama tarih kısmı 5 haneli bir sayı bende bunu tekrar tarih formatına çevirip kullanıcıya öyle göstermeme gerek aslında mantığı çözdüm ama koda dökemedim

01.01.1900 +38500 =05.08.2005

Teşekkür ederim kolay gelsin

[rsimsek]

Malum Date Double bir sayının tamsayı kısmı Time da ondalık kısmıdır.

Kod: Tümünü seç

Tarih := StrToDate(FormatDateTime('dd.mm.yyyy', 38500));

veya

Kod: Tümünü seç

TarihSaat := StrToDate(FormatDateTime('dd.mm.yyyy hh:mm:ss', 38500.12345));

Bunun haricinde DecodeDate(..) ve EncodeDate(...) procedure lerinin de F1 ine bakabilirsin

[pro_imaj]

Yani ben uzun uzadıya procedureler yazmadan bu dönüşüm olabilirmi bu kodu nasıl kullanabilirim
Datetime hatası veriyor.

[ikra]

ilginc bir durum : ))

mysql de field'i date olarak ayarlandiysa eger nasil olur 38500 gibi bir sayi cikartabilir. hic basima gelmedi...

eger field date olarak ayarli degil ise o halde date olarak ata arkadasim. mysql tarihi 2005-05-13 bu sekilde tutar ( bilgine )

ben de mysql kullaniyorum ve tarih tuttugum field lari date olarak ayarliyorum. kayit ederken de datetimepicker ile formatta bir degisiklik yapmadan kayit edebiliyorum...

[pro_imaj]

Merhaba.

Sorun İçin yardımcı olanlara çok teşekkür edeerim.
Aynı sorunla karşılaşan arkadaşlar için aşağıdaki kod ile bu işi çözdüm

var
sayi,sayi1:string;
begin
sayi:=DateToStr(AckQueryAlimTarih.Value);
edit3.Text:=(sayi);

Bende div lerle uğraşmaya başlicaktım.

Herkese çok teşekkür ederim.
Rsimsek Size ayrıca teşekkür ederim forumda sorularıma cevap verdiğiniz için
Kolay gelsin
Çalışmalarınızda başarılar.