Schrikkeljaar weergeven in textbox

[Jan92]

Hallo Allemaal,

Ik heb volgende code gevonden om te kontroleren of het systeemjaar al of niet een schrikkeljaar is

maar mijn vraag is nu, hoe kan ik in een textbox weergeven of de maand februari 28 of 29 dagen heeft ?

 'Kontroleren of het huidige jaar een schrikkeljaar is :
    Function IsLeapYear(ByVal year As Integer) As Boolean
        If year Mod 4 = 0 AndAlso year Mod 100 <> 0 OrElse _
           year Mod 400 = 0 Then IsLeapYear = True
    End Function

    'Als het huidige jaar een schrikkeljaar is heeft de maand februari 29 dagen :
    Function GetDaysFebruary(ByVal year As Integer) As Integer
        GetDaysFebruary = 28
        If IsLeapYear(year) Then GetDaysFebruary = 29
    End Function
[code]

groeten, Jan

 

[Tannasg]

Tekstbox1.text = GetDaysFebruary(year)

 

[Jan92]

Hallo Tannasg,
Ik dacht in eerste instantie ook dat het zo simpel was, maar mijn textbox blijft leeg.
Ik zal het vroeg of laat wel vinden.
Toch bedankt voor de reactie.
Jan

 

[Tannasg]

Vreemd,

ik kopieer je code naar een formulier en voer alleen de volgende 2 regels toe aan de form.load functie:

dim year = today.year
textbox1.text = getdaysfebruary(year)

en voila...

 

[Jan92]

@ Tannasg

Je hebt volkomen gelijk hoor. Het "vreemde" was dat mijn VB2008-Express Edition blijkbaar niet goed meer functioneerde.
Met een her-installatie was het probleem opgelost.
Nogmaals bedankt voor je hulp. :thumb:
Jan