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, dis je suis content de te revoir, donne la date, dit combien de jours dans le mois, dis l'heure, dis 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)