R: Sum times

sumtimes.md

R function to sum times

The function:

SumTimes = function(timeA, timeB) # "HH:MM:SS"
{
   Atime = unlist(strsplit(timeA, "[:]"))
   Btime = unlist(strsplit(timeB, "[:]"))
   HHsum = as.integer(Atime[1]) + as.integer(Btime[1])
   MMsum = as.integer(Atime[2]) + as.integer(Btime[2])
   SSsum = as.integer(Atime[3]) + as.integer(Btime[3])
   MMsum = MMsum + floor(SSsum/60)
   SSsum = SSsum %% 60
   HHsum = HHsum + floor(MMsum/60)
   MMsum = MMsum %% 60
   print(paste(HHsum, MMsum, SSsum, sep=":"))
}

Example:

SumTimes("01:46:59", "00:33:17")

Output:

[1] "2:20:16"