iki tarih arası fark

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
pasa_yasar
Üye
Mesajlar: 570
Kayıt: 07 Haz 2004 12:35

iki tarih arası fark

Mesaj gönderen 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
Üye
Mesajlar: 163
Kayıt: 11 Eki 2005 10:44
İletişim:

Re: iki tarih arası fark

Mesaj gönderen 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;
http://ibrahimcoban.com/
Lazarus, Kol-Ce,Delphi ve C#
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

Re: iki tarih arası fark

Mesaj gönderen conari »

Kod: Tümünü seç

decodedate()
decodetime()
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
Kullanıcı avatarı
pasa_yasar
Üye
Mesajlar: 570
Kayıt: 07 Haz 2004 12:35

Re: iki tarih arası fark

Mesaj gönderen pasa_yasar »

ibrahim beyin yazdığı kodu yazdım çalıştı. çok tşk. ederim. yıl ve ay hesabı nasıl yapabilirim acaba.
ibrahimcoban
Üye
Mesajlar: 163
Kayıt: 11 Eki 2005 10:44
İletişim:

Re: iki tarih arası fark

Mesaj gönderen 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.
http://ibrahimcoban.com/
Lazarus, Kol-Ce,Delphi ve C#
Kullanıcı avatarı
pasa_yasar
Üye
Mesajlar: 570
Kayıt: 07 Haz 2004 12:35

Re: iki tarih arası fark

Mesaj gönderen pasa_yasar »

her ay farklı çekiyor. 4 yılda bir artık yıl var. bunu direk bölersek doğru sonuç çıkarmı?
Kullanıcı avatarı
ovural
Üye
Mesajlar: 167
Kayıt: 22 Eki 2003 10:20
İletişim:

Re: iki tarih arası fark

Mesaj gönderen 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 ..
Kim ilim öğrenir sonra da onu gizlerse âhirette onun ağzına ateşten bir gem vurulur. (Hadis-i Şerif)
Bay_Y
Üye
Mesajlar: 116
Kayıt: 10 Mar 2014 11:12
Konum: İstanbul

Re: iki tarih arası fark

Mesaj gönderen Bay_Y »

Bilgilendirme için Teşekkürler.
Cevapla