Table of Content
HAL Forum
function Integer GetSecond (
Time t)
Description:
Returns seconds part of the given Time(hour)
Parameters:
t Time 
global
function val TimeToVal3(Time atim)
BEGIN
  val resv,divv;
  LongInt a,b;

  a = 3600;
  divv = 60;
  b = 60;
  resv = (GetHour(atim)*a) + (GetMinute(atim)*b) + GetSecond(atim);
  resv = resv / divv;
  resv = Round(resv,2);
  TimeToVal3 = resv;
  RETURN;
END;
Related topics:
««