iki tarih arası fark

[pasa_yasar]

iyi çalışmalar;

randevu için iki tarih arasındaki farkı gün,saat dakika olarak almak istiyorum acaba formulü veya komutu nedir;

01.01.2009 14:10:00 - 30.01.2009 16:00:00 = 29 gün 1 saat 50 dk. kaldı veya 29 gün 1 saat kaldı da olabilir

[ibrahimcoban]

Şunun gibi birşey olabilir.

Kod: Tümünü seç

procedure TarihFarki(const Tarih1, Tarih2: Tdatetime; out Gun, Saat, Dakika: double);
begin
  gun := tarih2 - tarih1;
  dakika := MinuteSpan(frac(gun), 0);
  saat := dakika / 60;
  dakika := frac(saat) * 60;
  gun := trunc(gun);
  saat := trunc(saat);
  dakika := round(dakika);
end;

[conari]

Kod: Tümünü seç

decodedate()
decodetime()

[pasa_yasar]

ibrahim beyin yazdığı kodu yazdım çalıştı. çok tşk. ederim. yıl ve ay hesabı nasıl yapabilirim acaba.

[ibrahimcoban]

Hocam basit değil mi ?
İstediğin en büyük değeri bul sonrada kalandan en küçükten büyüğe göre kalana göre al.

[pasa_yasar]

her ay farklı çekiyor. 4 yılda bir artık yıl var. bunu direk bölersek doğru sonuç çıkarmı?

[ovural]

DateUtils unitini incele istersen ..

orada

function YearsBetween(const ANow, AThen: TDateTime): Integer;
function MonthsBetween(const ANow, AThen: TDateTime): Integer;
function WeeksBetween(const ANow, AThen: TDateTime): Integer;
function DaysBetween(const ANow, AThen: TDateTime): Integer;
function HoursBetween(const ANow, AThen: TDateTime): Int64;
function MinutesBetween(const ANow, AThen: TDateTime): Int64;
function SecondsBetween(const ANow, AThen: TDateTime): Int64;
function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;

{ Range spanning functions }
{ YearSpan and MonthSpan are approximates, not exact but pretty darn close }

function YearSpan(const ANow, AThen: TDateTime): Double;
function MonthSpan(const ANow, AThen: TDateTime): Double;
function WeekSpan(const ANow, AThen: TDateTime): Double;
function DaySpan(const ANow, AThen: TDateTime): Double;
function HourSpan(const ANow, AThen: TDateTime): Double;
function MinuteSpan(const ANow, AThen: TDateTime): Double;
function SecondSpan(const ANow, AThen: TDateTime): Double;
function MilliSecondSpan(const ANow, AThen: TDateTime): Double;


gibi bir sürü fonksiyon var ..

[Bay_Y]

Bilgilendirme için Teşekkürler.