Sandro Bizioli


Chi sogna di giorno conosce molte cose che sfuggono a chi sogna soltanto di notte. (E.A.Poe)
Mappa

Anno bisestile in VB6

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'anno digitato è bisestile.
  If ((yr Mod 4) = 0) Then
      
IsLeapYear = ((yr Mod 100) > 0) Or ((yr Mod 400) = 0)
  End If
End Function

Categoria: VB6
mercoledì, 17 gen 2007 Ore. 18.14
Statistiche
  • Views Home Page: 111.458
  • Views Posts: 567.889
  • Views Gallerie: 117.357
  • n° Posts: 227
  • n° Commenti: 222
Copyright © 2002-2007 - Blogs 2.0
dotNetHell.it | Home Page Blogs
ASP.NET 2.0 Windows 2003