Código:
hora = dateadd("h",8,now()) if day(hora) < 10 then dia = "0" & Day(hora) end if if Month(hora) < 10 then mes= "0" & Month(hora) end if if year(hora) < 10 then ano= "0" & year(hora) end if hora = mes&"/"& dia &"/"&ano &" "&FormatDateTime(hora,3)