Calcolo dei giorni in un mese x

[tas]

Public Function GiorniDelMese(mese As Byte, anno As Integer) As Byte
    GiorniDelMese = CByte(DateSerial(anno, mese + 1, 1) - DateSerial(anno, mese, 1))
End Function

Ciao