Göra en vbs skriften att läsa tiden (2 / 4 steg)
Steg 2: Koden!
Ställa in 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 "Är dagens datum."
SAPI.Speak "aktuell tid är"
om hour(time) > 12 sedan
SAPI.Speak timme (tid) -12
annat
om hour(time) = 0 då
SAPI.Speak "12"
annat
SAPI.Speak hour(time)
slut om
slut om
om minute(time) < 10 sedan
SAPI.Speak "o"
om minute(time) < 1 sedan
SAPI.Speak "klocka"
annat
SAPI.Speak minute(time)
slut om
annat
SAPI.Speak minute(time)
slut om
om hour(time) > 12 sedan
SAPI.Speak "P.M."
annat
om hour(time) = 0 då
om minute(time) = 0 då
SAPI.Speak "Midnatt"
annat
SAPI.Speak "Klockan"
slut om
annat
om hour(time) = 12 då
om minute(time) = 0 då
SAPI.Speak "Middagen"
annat
SAPI.Speak "P.M."
slut om
annat
SAPI.Speak "Klockan"
slut om
slut om
slut om