Ciao tutti...
Qualcuno ha già una funzione che calolare i giorni del mese di un certo anno???
Non voglio uscare il CDATE e DateSerial...
grazie mille ...
Ciao tutti...
Qualcuno ha già una funzione che calolare i giorni del mese di un certo anno???
Non voglio uscare il CDATE e DateSerial...
grazie mille ...
Cosa intendi per "calcolare i girni del mese"?Originariamente inviato da deedlyt
Ciao tutti...
Qualcuno ha già una funzione che calolare i giorni del mese di un certo anno???
Non voglio uscare il CDATE e DateSerial...
grazie mille ...
![]()
esempio :
passando "anno" e "mese" alla mia funzione,mi calcola quanti giorni ci sono in quel mese
codice:Private Function Giorni(Mese As Byte, Anno As Integer) As Byte Select Case Mese Case Is = 1 Giorni = 31 Case Is = 2 If Anno Mod 4 = 0 Then Giorni = 29 Else Giorni = 28 End If Case Is = 3 Giorni = 31 Case Is = 4 Giorni = 30 Case Is = 5 Giorni = 31 Case Is = 6 Giorni = 30 Case Is = 7 Giorni = 31 Case Is = 8 Giorni = 31 Case Is = 9 Giorni = 30 Case Is = 10 Giorni = 31 Case Is = 11 Giorni = 30 Case Is = 12 Giorni = 31 End Select End Function
If Anno Mod 4 = 0 Then non va bene.
E' bisestile se divisibile per 4 ma non per 100
Se invece e' divisibile per 400 lo e'.
![]()
Si hai ragione, ma mi spieghi perche' e' sbagliato il mio metodo, a me sembra + veloce. Ciao
![]()
![]()