Médiaforma

Ajouter le nom du jour de la semaine dans la date

Print Friendly, PDF & Email

Un internaute m’a demandé s’il était possible d’ajouter le nom de la semaine dans un message parlé avec SAPI Voice. Cette rubrique va montrer comment procéder à tous ceux et celles qui pourraient être intéressés par cette manipulation.

Si nécessaire, consultez les sections « Un message vocal au démarrage du PC » et « Faire parler Windows en Français » pour en savoir plus sur les techniques utilisées pour faire parler Windows.

Voici à quoi pourrait ressembler le fichier Bonjour.vbs qui donne le jour et la date système.

Dim speaks, speech
speaks= »Nous sommes  » & WeekDayName(WeekDay(now)) & date()
Set speech=CreateObject(« sapi.spvoice »)
speech.Speak speaks
speaks= »Il est « & time()
speech.Speak speaks

La deuxième ligne définit la date complète et la stocke dans la variable speaks.

Now renvoie la date courante.

Weekday(Now) renvoie un nombre compris entre 1 et 7 qui représente le nom du jour. 1 correspond à Dimanche, 2 à Lundi, etc.

Enfin, WeekDayName(WeekDay(now)) renvoie le nom du jour de la semaine.

Ecoutons le résultat en double-cliquant sur l’icône de raccourci qui représente ce code VBScript.

Vous avez aimé cet article ? Partagez-le avec vos réseaux...
 
Comments