Delphi Can
iki tarih arası fark - Baskı Önizleme

+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Mobil Platform - FireMonkey (FMX) (https://www.delphican.com/forumdisplay.php?fid=7)
+--- Konu Başlığı: iki tarih arası fark (/showthread.php?tid=1622)

iki tarih arası fark - Mr.Developer - 06-12-2017

iyi günler . timer kullanarak iki tarih arasındaki farkı label' de gösterme mantğı ile ;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 DateEdit1.Text := DateToStr(Date);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 date1, date2: TDateTime;
 difference: Integer;
begin

 date1 := DateEdit1.Date;
 date2 := EncodeDate(2016, 05, 13);
 difference := trunc(date1) - trunc(date2);
 label1.Text := IntToStr(difference) + ' ' + label2.Text;
end;

sorun şu ; birisi benim girdiğim tarih diğeri ise android cihazdaki mevcut güncel tarih arasındaki farkı label'de gösteriyor fakat bir gün geçtiğinde farkı hala aynı gösteriyor.
sebebi nedir ? 
( basit ve amatörce ama kusruma bakmayın bende yeniyim. )

iki tarih arası fark - meko - 06-12-2017

zaman farkını hesaplayan ve gösteren kodu butonun click olayına yazmışsınız.
buton tıkladığınız halde güncelleme yapmıyorsa. timer çalışmıyor olabilir.
ayrıca siz, butona tıklamadan güncelleme yapmasını istiyorsanız. hesaplama ve gösterme kodlarını timer nesnesine taşıyın

iyi çalışmalar.

Cvp: iki tarih arası fark - iyarar - 06-12-2017

(06-12-2017, Saat: 15:21)BY-HAYALET Adlı Kullanıcıdan Alıntı: iyi günler . timer kullanarak iki tarih arasındaki farkı label' de gösterme mantğı ile ;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 DateEdit1.Text := DateToStr(Date);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 date1, date2: TDateTime;
 difference: Integer;
begin

 date1 := DateEdit1.Date;
 date2 := EncodeDate(2016, 05, 13);
 difference := trunc(date1) - trunc(date2);
 label1.Text := IntToStr(difference) + ' ' + label2.Text;
end;

sorun şu ; birisi benim girdiğim tarih diğeri ise android cihazdaki mevcut güncel tarih arasındaki farkı label'de gösteriyor fakat bir gün geçtiğinde farkı hala aynı gösteriyor.
sebebi nedir ? 
( basit ve amatörce ama kusruma bakmayın bende yeniyim. )

iki tarih arasındaki farkı  gün olarak almak için DaysBetween kullanabilirsiniz. yapmak istediğinizi daha açık anlatırsanız yardımcı olmaya çalışayım.

Cvp: iki tarih arası fark - Fesih ARSLAN - 06-12-2017

(06-12-2017, Saat: 15:31)iyarar Adlı Kullanıcıdan Alıntı:
(06-12-2017, Saat: 15:21)BY-HAYALET Adlı Kullanıcıdan Alıntı: iyi günler . timer kullanarak iki tarih arasındaki farkı label' de gösterme mantğı ile ;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 DateEdit1.Text := DateToStr(Date);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 date1, date2: TDateTime;
 difference: Integer;
begin

 date1 := DateEdit1.Date;
 date2 := EncodeDate(2016, 05, 13);
 difference := trunc(date1) - trunc(date2);
 label1.Text := IntToStr(difference) + ' ' + label2.Text;
end;

sorun şu ; birisi benim girdiğim tarih diğeri ise android cihazdaki mevcut güncel tarih arasındaki farkı label'de gösteriyor fakat bir gün geçtiğinde farkı hala aynı gösteriyor.
sebebi nedir ? 
( basit ve amatörce ama kusruma bakmayın bende yeniyim. )

iki tarih arasındaki farkı  gün olarak almak için DaysBetween kullanabilirsiniz. yapmak istediğinizi daha açık anlatırsanız yardımcı olmaya çalışayım.

Merhaba,
Bilgi için teşekkür ederim iyarar. 
Kullanımı, 
Uses kısmına DateUtils ekleyin ve aşağıdaki gibi kullanın.
DaysBetween(T1, T2).ToString;


iki tarih arası fark - dicle_gsm - 06-12-2017

Merhaba, Ben kalan aktivasyon günü SQL Sorgusunu böyle kullanıyorum

$sorgu= "SELECT DATEDIFF(bitis_zaman, CURDATE()) as kalan_gun from kulanicilar WHERE email='$_email'";

sorgu sonucu gün farkı ollarak dönecektir.

Cvp: iki tarih arası fark - Mr.Developer - 06-12-2017

(06-12-2017, Saat: 15:30)meko Adlı Kullanıcıdan Alıntı: zaman farkını hesaplayan ve gösteren kodu butonun click olayına yazmışsınız.
buton tıkladığınız halde güncelleme yapmıyorsa. timer çalışmıyor olabilir.
ayrıca siz, butona tıklamadan güncelleme yapmasını istiyorsanız. hesaplama ve gösterme kodlarını timer nesnesine taşıyın

iyi çalışmalar.

dediklerini uyguladım fakat yine değişen bişey olmadı.

teşşekkür ederim.
(06-12-2017, Saat: 15:31)iyarar Adlı Kullanıcıdan Alıntı:
(06-12-2017, Saat: 15:21)BY-HAYALET Adlı Kullanıcıdan Alıntı: iyi günler . timer kullanarak iki tarih arasındaki farkı label' de gösterme mantğı ile ;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 DateEdit1.Text := DateToStr(Date);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 date1, date2: TDateTime;
 difference: Integer;
begin

 date1 := DateEdit1.Date;
 date2 := EncodeDate(2016, 05, 13);
 difference := trunc(date1) - trunc(date2);
 label1.Text := IntToStr(difference) + ' ' + label2.Text;
end;

sorun şu ; birisi benim girdiğim tarih diğeri ise android cihazdaki mevcut güncel tarih arasındaki farkı label'de gösteriyor fakat bir gün geçtiğinde farkı hala aynı gösteriyor.
sebebi nedir ? 
( basit ve amatörce ama kusruma bakmayın bende yeniyim. )

iki tarih arasındaki farkı  gün olarak almak için DaysBetween kullanabilirsiniz. yapmak istediğinizi daha açık anlatırsanız yardımcı olmaya çalışayım.

yapmak istediğim ; iki tarih arası farkı bulmak. fakat birinci tarih manuel olarak, ikinci tarih otomatik olarak güncellenen android cihazlardaki tarih olarak seçmeye çalışıyorum.
yani android sistemindeki tarih ilerledikçe sabit olan tarih ile arasındaki farkı label'de hep güncel göstermek.
(06-12-2017, Saat: 15:34)Fesih ARSLAN Adlı Kullanıcıdan Alıntı:
(06-12-2017, Saat: 15:31)iyarar Adlı Kullanıcıdan Alıntı: iki tarih arasındaki farkı  gün olarak almak için DaysBetween kullanabilirsiniz. yapmak istediğinizi daha açık anlatırsanız yardımcı olmaya çalışayım.

Merhaba,
Bilgi için teşekkür ederim iyarar. 
Kullanımı, 
Uses kısmına DateUtils ekleyin ve aşağıdaki gibi kullanın.
DaysBetween(T1, T2).ToString;

uses kısmına ekledikten sonra yazdığınız kodu nasıl kullanacağım hakkında bir bilgi sahibi olmadığımı belirtmekle kabalık yapmış olurmuyum  Blush
yetersiz bilgisizliğim için kusruma bakmayın.

iki tarih arası fark - Halil Han BADEM - 06-12-2017

http://www.delphican.com/delphi-yeni-baslayanlar-icin-guzel-kaynak.html Bu konuda bahsi gecen kaynak ile DateUtils kutuphanesini arastirip, öyle bir deneyiniz.

Cvp: iki tarih arası fark - Mr.Developer - 06-12-2017

(06-12-2017, Saat: 16:19)hyperxman Adlı Kullanıcıdan Alıntı: http://www.delphican.com/delphi-yeni-baslayanlar-icin-guzel-kaynak.html Bu konuda bahsi gecen kaynak ile DateUtils kutuphanesini arastirip, öyle bir deneyiniz.

bu web sitesini önerdiğin için saol . beni bir çok şeyden kurtaracak bilgi mevcut.