geçen gün süresi

[yakliii]

s.a

bügünkü tarih ile veri tabanına girilen tarih arsında geçen süreyi nasıl bulabilrim.

örn:

edit1= veri tabanına girilen tarih
edit2= geçen süre(bugünkü tarihten edit1deki tarihin çıkarılmış hali gün, ay olarak)

[ulu coder]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  toplam_gun:integer;
  ay:integer;
  gun:integer;
begin

  toplam_gun:=DaysBetween(StrToDate(Edit1.Text),Date);//aradaki fark

  ay:=toplam_gun div 30; //kaç tane otuz var
  gun:=toplam_gun mod 30;//30'a bölümünden kalan nedir?

  edit2.Text:=inttostr(ay)+' ay '+inttostr(gun)+' gün';

end;

Kolay gelsin

[yakliii]

eywallah arkadaşım sağolsın aynısı yazdım ama olmadı hata verdi.
Kod satırında tam daysbetwenn den sonra yani imleç orada duruyor.
Tabi ben dbedit kullanmıştım kod içindede ona göre değiştirdim ama olmadı.

[mussimsek]

Hata veriyor ibaresini sevmiyoruz, siz de silin lügatinizden. Bu 2 kelime asla yanyana gelmesin

Hata kodunu ve adını yazın lütfen, xxx hatasını veryor gibi. Daha da güzeli aratın cevabını büyük ihtimal bulacaksınız. Ben söyleyim şimdiden DateUtils

Kolay gelsin.

[yakliii]

wala abi öyle şu hatayı veriyor gibi birşey demiyor ama kod satırının altında yazan yazıyı aynen buraya koyuyorum.

[error unit1.pas(49)]: Undeclared identifier: 'DaysBetween'
[fatal error] project1.dpr(5): Could not compile used unit 'Unit1.pas'

[ulu coder]

Uses'a DateUtils'i ekleyin.

Bir de şu iki linke göz atmanızı tavsiye ediyorum;

http://www.delphiturkiye.com/index.php? ... tetime.htm
viewtopic.php?t=2482