Skip to content

Instantly share code, notes, and snippets.

@depuits
Created July 20, 2016 08:03
Show Gist options
  • Save depuits/84ad92c86da4ec5daa76861e9acb054f to your computer and use it in GitHub Desktop.
Save depuits/84ad92c86da4ec5daa76861e9acb054f to your computer and use it in GitHub Desktop.
Talking clock for windows
'http://www.thewindowsclub.com/make-windows-8-speak-out-the-time-every-hour
Dim speaks, speech
speaks = "it's " & hour(time) & " hours and " & minute(time) & " minutes"
Set speech = CreateObject("sapi.spvoice")
speech.Speak speaks
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment