Zaman Farkı alamıyorum...

[scada]

Arkadaşlar iki zaman arasındaki farkı alamıyorum.
Sorun şu ki;

Fark:=Saat2.Time-Saat1.Time; // mesela (16:00 - 00:00) arasındaki fark 16 saat diyor.
Lütfen 00:00 ın tarihini bir gün arttır demeyin

Programın en heyecanlı yerinde böyle salak bir şeye takılmak utanç verici ama maalesef geçemedim..

Teşekkürler...

[adnansirca]

if then else .....
Oluşturduğunuz mantıkla saat2 her zaman saat1 den büyük olmalı.
Bu durumda günün bitimini doğru hesap edemeyiz.
Bu mantıkla gidilirse Günün bitimini 23:59:59 şeklinde ayarlamak zorundasınız ya da tam tersi.

Kendiniz bir fonksiyon yazabilir ya da mevcut fonksiyonlara müdahale edebilirsiniz.
Aynı gün içerisindeki zaman farkını almak size yetiyorsa DateUtils içerisindeki HoursBeetween veya MinutesBeetween fonksiyonunu kullanın.

ya da burayı inceleyin ... http://delphiturkiye.com/forum/viewtopi ... =2&t=28385