systemop
asked on
Timer question
I want my Label1 shows now + 25 min. How can i do this?
When i do TimeToStr(Now) + 25 it gives error??
When i do TimeToStr(Now) + 25 it gives error??
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
procedure TForm1.Button1Click(Sender : TObject);
var
Hour, Min, Sec, MSec: Word;
begin
DecodeTime(Time,Hour,Min,S ec,MSec);
Label1.Caption :=IntToStr(Hour) + ':' + IntToStr(Min + 25) + ':' + IntToStr(Sec);
end;
var
Hour, Min, Sec, MSec: Word;
begin
DecodeTime(Time,Hour,Min,S
Label1.Caption :=IntToStr(Hour) + ':' + IntToStr(Min + 25) + ':' + IntToStr(Sec);
end;
Hi systemop,
const
OneHour = 1/24;
OneMin = OneHour / 60;
....
TimeToStr(Now+ 25*OneMin)
-----
Igor.
const
OneHour = 1/24;
OneMin = OneHour / 60;
....
TimeToStr(Now+ 25*OneMin)
-----
Igor.
ASKER
Thanks man youre my hero..
The Neil =:)