Calcul de l'année bissextile en vbs Win11 64 bits

Version imprimable

17/07/2024, 08h17
cincap

Calcul de l'année bissextile en vbs Win11 64 bits
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:

1 2 Day(FormatDateTime(DateSerial(Year(Date), 3, 0))=29
En D6 j'utilisais :
Code:

1 2 IsInLeapYear(date)
Merci d'une aide éventuelle.

@+,

cincap

Salut

Code:

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

17/07/2024, 09h28
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
17/07/2024, 10h49
umfred
Ton code devait fonctionner mis dans un test
Code:

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)

@ umfred, merci pour ta suggestion.

J'ai modifié le code par :

Code:

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

17/07/2024, 12h05
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".
17/07/2024, 13h16
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
17/07/2024, 15h14
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:

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)

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:

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

18/07/2024, 15h18
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)
18/07/2024, 23h30
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é
19/07/2024, 10h15
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
19/07/2024, 11h18
Invité

cette partie à changer dans le code :

Code:

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

En

Code:

Day(DateSerial(Year(Date), Month(Now) + 1, 1) - 1)
20/07/2024, 06h32
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.

Citation:

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

Bonne journée,

@+,

cincap