Cita:
Iniciado por erbuson 
Prueba a ver si te sirve esto
DiaSemana = Format(Date, "dddd")
Hola erbunson!
¿He de activar algun complemento? ya que lo he probado ahora mismo y me da este error "error 13 en tiempo de ejecucion" tengo la variable Diasemana declarada cmo Date.
Un saludo