Il est facile de perdre la notion du temps en travaillant sur son ordinateur. Les applications de suivi du temps permettent d'analyser où s'écoulent vos heures, mais une annonce vocale de l'heure peut être un rappel plus direct et efficace.
Contrairement à macOS qui intègre une fonction d'annonce de l'heure, Windows n'en propose pas nativement. Heureusement, vous pouvez l'ajouter facilement avec un script simple et le Planificateur de tâches.
Dim speech
Dim hour_now, heure12, heure_finale, ampm, parle
hour_now = Hour(Now)
If (hour_now > 12) Or (hour_now = 12) Then
heure12 = hour_now - 12
ampm = "PM"
Else
heure12 = hour_now
ampm = "AM"
End If
If heure12 = 10 Then
heure_finale = "dix"
ElseIf heure12 = 11 Then
heure_finale = "onze"
ElseIf (heure12 = 12) Or (heure12 = 0) Then
heure_finale = "douze"
ElseIf (heure12 > 0) And (heure12 < 10) Then
heure_finale = heure12
End If
parle = "Il est " & heure_finale & " " & ampm
Set speech = CreateObject("SAPI.SpVoice")
speech.Speak parle
Quelle que soit votre méthode, adoptez des habitudes pour optimiser votre gestion du temps et atteindre vos objectifs.
[]