Dim strDateTime1 As String 'DateTime string 201507212215 - yyyyMMddHHmm format
Dim lngDateTime1 As Long
Dim strDateTime2 As String 'DateTime string 201507271355 - yyyyMMddHHmm format
Dim lngDateTime2 As Long
Dim lPeriod As Period
' Calculate the period (in seconds) between 2 dates
' My realtime app will have a diff of seconds, or a few days - I need it to be accurate upto the second
strDateTime1 = "201507212215"
strDateTime2 = "201507271355"
DateTime.DateFormat = "yyyyMMdd"
DateTime.TimeFormat = "HHmm"
lngDateTime1 = DateTime.DateTimeParse(strDateTime1.SubString2(0,8), strDateTime1.SubString(8))
lngDateTime2 = DateTime.DateTimeParse(strDateTime2.SubString2(0,8), strDateTime2.SubString(8))
Log(lngDateTime1)
Log(lngDateTime2)
lPeriod=DateUtils.PeriodBetween(lngDateTime1, lngDateTime2)
Log(lPeriod.Years)
Log(lPeriod.Months)
Log(lPeriod.Days)
Log(lPeriod.Hours)
Log(lPeriod.Minutes)
Log(lPeriod.Seconds)