Controllo ComboDate

[vuott]

https://foro.gambas-es.org/viewtopic.php?f=4&t=6633

[Gianluigi]

Avevo fatto una funzione per l'anno bisestile molto più cervellotica della tua:

Codice: [Seleziona]

Private Function bisesto(anno As Integer) As Boolean

  Dim i As Integer

  i = anno Mod 4
  If i <> 0 Then Return False
  i = anno Mod 100
  If i <> 0 Then Return True
  i = anno Mod 400
  If i <> 0 Then
    Return False
  Else
    Return True
  Endif

End

Meglio questa ricavata dal tuo codice:

Codice: [Seleziona]

Private Function bisesto(anno As Integer) As Boolean

  If (anno Mod 4 = 0 And anno Mod 100 <> 0) Or (anno Mod 400 = 0) Then
    Return True
  Else
    Return False
  Endif

End

Grazie
Mi sa che nella discussione spagnola il tuo suggerimento non è stato capito   

[vuott]

Mi sa che nella discussione spagnola il tuo suggerimento non è stato capito   

Lo credo anch'io.