# 30 January, 1938, 6:00 - birthday of Islam Karimov
t1 <- emr_date2time(30, 1, 1938, 6)
# September 2, 2016, 7:00 - death of Islam Karimov
t2 <- emr_date2time(2, 9, 2016, 7)
emr_time2char(c(t1, t2))
emr_time2char(c(t1, t2), show_hour = TRUE)
emr_char2time(emr_time2char(c(t1, t2), show_hour = TRUE))
# Note that when show_hour = FALSE, the hour is set to 0
# and therefore the results would be different from the original time values
emr_char2time(emr_time2char(c(t1, t2)))
Run the code above in your browser using DataLab