Zaman Aralığı

[umutcanster]

S.A.
Aile koruma programı yapıyorum yönetici bir zaman aralığı girecek örneğin '19:00:20' ile '21:00:21' arasında sitelere girilmeyecek.

biraz uğraştım yapamadım,timer kullanıyorum bu gibi durumlar için '19:00:20' de siteleri engellemeyi başarsam da saat '20:12:22' gibi aralığında olan zamanlarda çalışmıyor.

çözümü nedir ? teşekkürler.

[umutcanster]

Çözdüm arkadaşlar,yazalımda birileride nasiplensin.

Kod: Tümünü seç

var

atime,btime,Current:TTime;
begin
atime:=StrToTime('13:10:00');
btime:=StrTotime('19:20:00');
current:= Time;

if (Current >= atime) AND (Current <= btime) then
begin
ShowMessage('Aralığı')
end;