uses DateUtils; var S1, S2: string; T1, T2: TDateTime; D, H, M, S: Integer; Value: Int64; begin S1 := '2015/09/23 15:44:50'; S2 := '2013/09/22 16:47:51'; T1 := StrToDateTime(S1); T2 := StrToDateTime(S2); Value := SecondsBetween(T1, T2); D := Value di