Delphi 10 Seattle tarih farkı

[BABASOFT]

Merhabalar;
Delphi 10 Seattle işle android uygulama öğrenmeye çalışıyorum.
Fakat 2 tarih arası farkı bulmam gerekiyor.
lblFark.Text:=inttostr(daysbetween(calendar1.Date,now()));
Şeklinde kod kullandığımda fark yanlış çıkıyor.
Örneğin calendar 5 kasım ,bugün 6 kasım diyelim , fark 0 çıkıyor.
calendar 6 kasım bugün 5 kasım diyelim , fark 0 çıkıyor.
calendar 7 kasım bugün 5 kasım diyelim ,fark 1 çıkıyor.

Normal windows uygulamasında bu sorun yok.
Sebebi ne olabilir veya hangikodu kullanmalıyım.
Teşekkürler.

[csunguray]

Now yerine Date kullanın. Date fonksiyonu günün tarihini verir.

Kod: Tümünü seç

procedure GunFarkiBul;
var
  GunFarki: Integer;
begin
  GunFarki := Trunc(Calendar1.Date - Date);
  lblFark.Text := IntToStr(GunFarki);
end;

Trunc fonksiyonu virgüllü bir sayının sadece tamsayı kısmını Integer olarak verir. Yukarıdaki örnekte Trunc kullanmasaydık sonucun tipi Double olacaktı ve tipi Integer olan GunFarki değişkeninin içine koyamayacaktık.

[BABASOFT]

Teşekkür ederim csunguray arkadaşım.İşimi gördü.