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)
 
 
 Poner 2 digitos
 Poner 2 digitos 



