Gambas-it

Gambas dal mondo esterno => Spagna => Topic aperto da: vuott - 22 Settembre 2017, 00:27:43

Titolo: Controllo ComboDate
Inserito da: vuott - 22 Settembre 2017, 00:27:43

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

Titolo: Re:Controllo ComboDate
Inserito da: Gianluigi - 22 Settembre 2017, 12:12:43

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   ;D

Titolo: Re:Controllo ComboDate
Inserito da: vuott - 22 Settembre 2017, 16:50:09

Citazione da: Gianluigi - 22 Settembre 2017, 12:12:43

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

Lo credo anch'io.