DateTime.DateFormat= "dd/MM/yyyy HH:mm:ss"
DateTime.TimeFormat= "HH:mm:ss"
Dim timezone As Long
timezone = -DateTime.DateParse("01/01/1970 00:00:00")
Dim t1 As Long
t1=DateTime.Now
Dim a As String
a="03/09/2011 02:33:00"
Dim t2 As Long
t2=DateTime.DateParse(a)
t2=t2-t1-timezone '<----!!!
Dim s As String
s=NumberFormat2(DateTime.GetDayOfMonth(t2),2,0,0,False) & ":" _
& NumberFormat2(DateTime.GetHour(t2),2,0,0,False) & ":" _
& NumberFormat2(DateTime.GetMinute(t2),2,0,0,False) & ":" _
& NumberFormat2(DateTime.GetSecond(t2),2,0,0,False)
Msgbox (s,"")