Merhaba,
Kodlamadan anlamıyorum. Kullandığım bir proğramda FastReport kullanılıyor. Raporlamalarda değişiklik yapıyorum.
Şimdiki tarihten eski bir tarihi çıkarıp aradaki gün sayısının rapora gelmesini istiyorum. Proğramı aldığım firma yapamadı.
Yaptığı şey bugün ki tarihten doğum yılını çıkararak kişinin yaşını bulmak oldu. [IntToStr(YearOf(Now)-<Cari_CariKart."Dogum_Yili">)]
16/01/2021-1965 rapora gelen 56 sayısı.
Asıl Yapmak istediğim bugünün tarihten, personelin işe giriş tarihini çıkararak kaç gün çalıştığını görmek.
Şimdiki Zaman-[Cari_CariKart."IseGirisTarihi"] şeklinde yapmaya çalıştım hazır kodlardan beceremedim.
Yardımlarınız için şimdiden teşekkür ederim.
https://i.hizliresim.com/jpRfyP.png[/img][/url]
https://i.hizliresim.com/mfIIXO.png[/img][/url]
https://i.hizliresim.com/yHVwAL.png[/img][/url]
FastReport Tarihi Tarihten Çıkarma
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: FastReport Tarihi Tarihten Çıkarma
Merhaba,
[IntToStr(YearOf(Now)-<Cari_CariKart."IseGirisTarihi">)]
şeklinde denediğinizde oluyor mu acaba?
[IntToStr(YearOf(Now)-<Cari_CariKart."IseGirisTarihi">)]
şeklinde denediğinizde oluyor mu acaba?
Re: FastReport Tarihi Tarihten Çıkarma
[IntToStr(YearOf(Now)-<Cari_CariKart."IseGirisTarihi">)] denediğimde aşağıdaki hatayı veriyor.
https://i.hizliresim.com/MZB9ff.png[/img][/url]
https://i.hizliresim.com/MZB9ff.png[/img][/url]
Re: FastReport Tarihi Tarihten Çıkarma
IseGirisTarihi veri türü nedir acaba veritabanı tablosu içinde?
Re: FastReport Tarihi Tarihten Çıkarma
Cari hesap kartına 01/01/2000 Şeklinde software proğrama kaydediyorum. Veri tablosu ve işleyişini bilemiyorum.
Re: FastReport Tarihi Tarihten Çıkarma
veriyi 01/01/2000 kaydettiğin alan string tipinde olduğu için, date tipinde olmadğı için fastreport tarih dönüşümü yapamayıp hata veriyor.
01/01/2000 kaydettiğin alan string tipinde tanımlanmış, programcı hatası
01/01/2000 kaydettiğin alan string tipinde tanımlanmış, programcı hatası
http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;