CALCULAR DATA/HORA INICIO E FINAL

OMAR2011 24/02/2015 08:49:11
#444727

Fiz o teste deste jeito.

Dim Dta, Dtb, DtC, DtD, Resul As String
Dta = [Ô]22/08/2014 15:59:30[Ô]
Dtb = [Ô]22/09/2014 17:59:30[Ô]
[ô]Dtb = [Ô]22/09/2014 17:47:00[Ô]
DtC = DateDiff([Ô]s[Ô], Dta, Dtb)
DtC = DtC / 3600
DtD = CStr(Round((DtC - Int(DtC)) / 100 * 60, 5)) & [Ô]0[Ô]
Resul = CStr(Int(DtC)) & [Ô]:[Ô] & Mid(DtD, 3, 2) & [Ô]:[Ô] & Mid(((Mid(DtD, 5, 9) * 60)), 1, 2)
Resul = Format(Resul, [Ô]hh:mm:ss[Ô])
Text2.Text = Resul

Apresentou o mesmo erro.Refiz o teste num Desktop e Notebook.