Hacer un script vbs para leer la hora (2 / 4 paso)

Paso 2: El código!

Set Sapi = Wscript.CreateObject ("SAPI. SpVoice")

SAPI.Speak weekdayname(weekday(date))
SAPI.Speak monthname(month(date))
SAPI.Speak day(date)
SAPI.Speak year(date)
SAPI.Speak "Es la fecha actual".
SAPI.Speak "es la hora actual"

Si hour(time) > 12 entonces
SAPI.Speak (hora) -12
otra cosa
Si hour(time) = 0 then
SAPI.Speak "12"
otra cosa
SAPI.Speak hour(time)
terminar si
terminar si

Si minute(time) < 10 entonces
SAPI.Speak "o"
Si minute(time) < 1 entonces
SAPI.Speak "reloj"
otra cosa
SAPI.Speak minute(time)
terminar si
otra cosa
SAPI.Speak minute(time)
terminar si

Si hour(time) > 12 entonces
SAPI.Speak "H"
otra cosa
Si hour(time) = 0 then
Si minute(time) = 0 then
SAPI.Speak "Medianoche"
otra cosa
SAPI.Speak "A.M."
terminar si
otra cosa
Si hour(time) = 12 entonces
Si minute(time) = 0 then
SAPI.Speak "Mediodía"
otra cosa
SAPI.Speak "H"
terminar si
otra cosa
SAPI.Speak "A.M."
terminar si
terminar si
terminar si