function time_convert(time_input)
  if time_input then
    time_second=time_input
    time_hour=int(time_second/3600)
    time_second=time_second-(time_hour*3600)
    time_minute=int(time_second/60)
    time_second=time_second-(time_minute*60) 
    time_convert=CStr(time_hour)+":"+CStr(time_minute)+":"+CStr(time_second)
  else
    time_convert=0
  end if
end function

function hour_part(time_input)
  if time_input then
    hour_part=int(time_input/3600)
  else
    hour_part=0
  end if
end function

function minute_part(time_input)
  if time_input then
    time_second=time_input
    time_hour=int(time_second/3600)
    time_second=time_second-(time_hour*3600)
    minute_part=int(time_second/60)
  else
    minute_part=0
  end if
end function

function second_part(time_input)
  if time_input then
    time_second=time_input
    time_hour=int(time_second/3600)
    time_second=time_second-(time_hour*3600)
    time_minute=int(time_second/60)
    second_part=time_second-(time_minute*60)     
  else
    second_part=0
  end if
end function