TARIH SORUNU HK

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
netbilgi
Üye
Mesajlar: 9
Kayıt: 12 May 2016 02:04

TARIH SORUNU HK

Mesaj gönderen netbilgi »

Merhaba Arkadaşlar..

01/01/1919
01/05/1919
01/08/1919
01/09/1919
" "
" " dos altında çalışan eski programda olan tarihler bu şekilde görünüyor.

Mevcut tarihin yılını bu yıl olarak nasıl değiştirebilirim.
örn:
01/01/2019
01/05/2019 ... şeklinde. Yardımınız için şimdiden teşekkür ederim

ertank
Üye
Mesajlar: 1310
Kayıt: 12 Eyl 2015 12:45

Re: TARIH SORUNU HK

Mesaj gönderen ertank »

Merhaba,

1- Kullandığınız Delphi sürümü nedir?
2- Elinizde paylaşabileceğiniz bir kod var mı?
3- Ya da bu değerleri Delphi Windows ortamında geliştirdiğiniz bir uygulama ile okuyabilmek adına örneğin bir metin belgesinden düzeltilmiş şekilde mi okumak istiyorsunuz?

netbilgi
Üye
Mesajlar: 9
Kayıt: 12 May 2016 02:04

Re: TARIH SORUNU HK

Mesaj gönderen netbilgi »

:bravo: Merhaba,
Biraz zor oldu ama yaptım.
Belki başka arkadaşlarında bu şekilde bir sorun karşılarına gelirse faydalansınlar diye kaynak kodu paylaşıyorum.
Selamlar..
-------------------------------------------------------------------------------------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
Tarih1 : TDateTime;
Yil, Ay, Gun : Word; //Word olmak zorunda
begin

Table1.First;
while not Table1.Eof DO
begin
DecodeDate(Table1TARIH.value,Yil,Ay,Gun); // Dosyadaki Tarih değişkenini yıl,ay,gun olarak ayırma komutu
table1.edit;
Table1TARIH.Value:=EncodeDate (currentyear,Ay,Gun); // Encode komutu parçalanan tarihi birlestiriyor. Tablodaki eski formattaki tarihi bulunulan yıla çeviriyor.
table1.post;
table1.next;
end;
end;
end.

Cevapla