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".