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;
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;
Kod: Tümünü seç
Embeddedwb1.wait;
Kod: Tümünü seç
EmbeddedWb1.OleObject.Document.okul.submit;