06-12-2017, Saat: 15:21
(Son Düzenleme: 06-12-2017, Saat: 15:23, Düzenleyen: TescilsizUzman.)
iyi günler . timer kullanarak iki tarih arasındaki farkı label' de gösterme mantğı ile ;
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. )
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. )