Dopo aver visto come ricavare se un anno è bisestile o no in SQL Server, vediamo come fare la stessa operazione con Visual Basic 6.Eseguendo lo stesso calcolo la nostra funzione diventa: Function IsLeapYear(ByVal yr As Integer) As Boolean   IsLeapYear = (Day(DateAdd("d", -1, "1/3/" & yr)) = 29)End Function Altra possibilità è quella di eseguire un calcolo più dettagliato sull'anno in questo modo: Private Function IsLeapYear(ByVal yr As Integer) As Boolean  'Controlla se l'a 
Leggi tutto il post...