Discussion :

[cincap]

Bonjour à toutes et à tous,

Etant plus habitué en langage Delphi, j'ai testé ce code mais sans succès ou ais je fait une erreur ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Day(FormatDateTime(DateSerial(Year(Date), 3, 0))=29

En D6 j'utilisais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
IsInLeapYear(date)

Merci d'une aide éventuelle.

@+,

cincap

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
MsgBox "l'année en cours est-elle bissextille ? " & bissextile(Date)
 
MsgBox "l'année prochaine elle sera " & bissextile(01/01/2025)
 
function bissextile(TheDate)
 bissextile = Cbool(Day(FormatDateTime(DateSerial(Year(TheDate), 3, 0)))=29)
end function

[cincap]

@ ProgElecT, Comment vas tu depuis ce temps ?

merci pour ta réponse judicieuse, je ne connaissais pas "Cbool" dans une fonction.

En tous les cas cela fonctionne, plus qu'a l'adapter à mon code.

Bonne fin de journée.

@+,

cincap

[umfred]

Ton code devait fonctionner mis dans un test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
if Day(FormatDateTime(DateSerial(Year(Date), 3, 0))=29 then 
 'Année bisextile
Else
 'Année non bissextile
End If

Je pense que le CBool n'est pas nécessaire (juste laisser les parenthèses)

[cincap]

@ umfred, merci pour ta suggestion.

J'ai modifié le code par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
if bissextile(Date) = true then MsgBox year(date) & " est bissextile " else MsgBox year(date) & " n'est pas bissextile " end if
 
function bissextile(TheDate)
 bissextile = Day(FormatDateTime(DateSerial(Year(TheDate), 3, 0)))=29
end function

Pour être compatible avec mon application.

@+,

cincap

[ProgElecT]

Cette fonction m'est très ancienne, je l'avais dans mes archives, donc je te l'ai proposé, dans mes programmes VB6 je l'avais parmi d'autre fonction "bateau".

[cincap]

@ tous,

Si cela intéresse le code .vbs en vocal je peus le communiquer.

Il dit bonjour avec le nom, dit je suis content de te revoir, donne la date, dit combien de jours dans le mois, dit l'heure, dit si c'est une année bissextile.

Cordialement,

@+,

cincap

[umfred]

pourquoi pas

Sinon, pas obliger d'ajouter le test à true dans la condition, dans la majorité des cas et des langages, c'est toujours If [condition] Then [actions si condition vraie] Else [actions si condition fausse] End Ifça allège un peu.
donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If bissextile(Date) Then ... Else .. End If

PS: Le CBool n'est une erreur en soit, mais ici il n'y a pas besoin de caster en booléen (la comparaison renvoie déjà un booléen) (ça peut être aussi pour faciliter la relecture, pour se rappeler que l'on doit avoir ici un booléen)

[cincap]

Bonjour à toutes et à tous,

@ umfred, merci pour ta réponse constructive, voici le code qui fonctionne dans le dossier de démarrage de Windows 11 64 bits correctement.

Il faut juste mettre votre prénom après "Bonjour......"

Certainement on pourrai simplifier ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
dim speaks, speech
dim ddate, dmois 'date à traiter 
dim stJs 'chaine jour de la semaine..
 
ddate = now 'date actuelle
 
dmois = Month(ddate) 'Mois actuel
 
stJS = WeekDayName(WeekDay(ddate))
 
Set speech=CreateObject("sapi.spvoice")
 
speech.rate=1
speech.volume =100
 
speaks="Bonjour Jean Marie. je suis content de te revoir, On est le " & stJs & FormatDateTime(ddate, vbLongDate) & "Et le mois de " & MonthName(dMois) & " a " & Day(FormatDateTime(DateSerial(Year(Date),Month(now)+1,1)-1,vbGeneralDate)) & " jours"
 
speech.Speak speaks   
 
if bissextile(Date) then speaks =year(date) & " est une année bissextile " else speaks = year(date) & " n'est pas une année bissextile " end if
 
speech.Speak speaks   
 
speaks="Il est " & FormatDateTime(ddate, vbShortTime) 'ou time() 
 
speech.Speak speaks
 
speaks= "Je te souhaite une excellente journée"
 
speech.Speak speaks
 
 
function bissextile(TheDate)
 bissextile = Day(FormatDateTime(DateSerial(Year(TheDate), 3, 0)))=29
end function

Bon amusement,

@+,

cincap

[umfred]

tu aurais pu changer le Day(FormatDateTime(DateSerial(Year(Date),Month(now)+1,1)-1,vbGeneralDate)) en Day(FormatDateTime(DateSerial(Year(ddate),dmois+1,0),vbGeneralDate)) par rapport à ce que tu as écrit dans la fonction bissextile (et utiliser tes variables ddate et dmois plutôt que les fonction Date et now (histoire d'être cohérent et d'utiliser les valeurs déjà obtenues)

[l_autodidacte]

La ligne 17 contient un doublon du nom du jour de la semaine

Le code FormatDateTime(ddate, vbLongDate) contient le nom du jour;
donc pas la peine d'ajouter la variable stJS qui devient de trop.

Salut ProgElecTcela fail un bail qu'on ne s'est pas parlé

[cincap]

Bonjour à toutes et à tous,

@ l_autodidacte, merci de ta suggestion mais pas d'accord car dans ma configuration si je l'enlève, je n'ai plus le nom du jour.

@+,

cincap

[Invité]

cette partie à changer dans le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Day(FormatDateTime(DateSerial(Year(Date),Month(now)+1,1)-1,vbGeneralDate))

En

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Day(DateSerial(Year(Date), Month(Now) + 1, 1) - 1)

[cincap]

Bonjour à toutes et à tous,

@ tous merci pour les suggestions c'est noté.

@ ProgElecT merci pour ton exemple de code dans une autre discussion afin de modifier le genre de voix par défaut.

Je l'avais fait aussi en Delphi en utilisant le chemin pour afficher la fenêtre prévue par Win11.

C:\Windows\sysWOW64\speech\SpeechUX\sapi.cpl

Bonne journée,

@+,

cincap