Tüm Platformlar için Hızlı Uygulama Geliştirme Kitabı... Delphi
Ön Sipariş Talebinde Bulunan Üyelerimiz
Sipariş Talebinde Bulunan Üyelerimiz

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
iki tarih arası fark
#1
Question 
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. )
Sanal Ortamda Hiçbir Veri Yok Olmaz Veya Silinmez Derler
Oysaki Hiçbir Veri Zaten Yoktur...
Cevapla
#2
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.
Cevapla
#3
(06-12-2017, Saat: 15:21)BY-HAYALET Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Oliyi 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.
Cevapla
#4
(06-12-2017, Saat: 15:31)iyarar Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(06-12-2017, Saat: 15:21)BY-HAYALET Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Oliyi 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;
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#5
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.
- Namyelus
WWW
Cevapla
#6
(06-12-2017, Saat: 15:30)meko Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olzaman 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ı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(06-12-2017, Saat: 15:21)BY-HAYALET Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Oliyi 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ı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(06-12-2017, Saat: 15:31)iyarar Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Oliki 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.
Sanal Ortamda Hiçbir Veri Yok Olmaz Veya Silinmez Derler
Oysaki Hiçbir Veri Zaten Yoktur...
Cevapla
#7
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol Bu konuda bahsi gecen kaynak ile DateUtils kutuphanesini arastirip, öyle bir deneyiniz.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#8
(06-12-2017, Saat: 16:19)hyperxman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlLinkleri Görebilmeniz İçin Giriş yap veya Üye Ol 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.
Sanal Ortamda Hiçbir Veri Yok Olmaz Veya Silinmez Derler
Oysaki Hiçbir Veri Zaten Yoktur...
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Formlar arası geçiş Yardım crowlin 6 183 11-11-2018, Saat: 19:58
Son Yorum: crowlin
Question formlar arası geçiş efekti ? Mr.Developer 6 499 06-05-2018, Saat: 16:59
Son Yorum: Mr.Developer



Konuyu Okuyanlar: 1 Ziyaretçi