PDA

View Full Version : Funzione x VB6 Calcolo giorno massimo del mese

prodan
24-12-2003, 16:50
Ho bisogno di una funzione se esiste che mi calcoli i giorni massimi di un mese!!
Sopratutto deve essere in grado di riconoscere se l'anno è bisestile!!!
Tanks!!!
cionci
24-12-2003, 16:54
Per vedere se l'anno è bisestile è facile:

If (anno Mod 4) = 0 Then
'anno bisestile
Else
'anno non bisestile
End If
matpez
24-12-2003, 17:43
Originariamente inviato da cionci
Per vedere se l'anno è bisestile è facile:

If (anno Mod 4) = 0 Then
'anno bisestile
Else
'anno non bisestile
End If


Qua cionci ti correggo...

Un anno è bisestile se il suo numero è divisibile per 4, tranne che se sia divisibile per 100 (ma è bisestile se è divisibile per 400).

infatti i secoli nn sono bisestili, ma il 2000 lo era perchè entrava nel'esempio di mod 400
matpez
24-12-2003, 17:45
Originariamente inviato da prodan
Ho bisogno di una funzione se esiste che mi calcoli i giorni massimi di un mese!!



Public Function MonthDay(nMese As Integer, nAnno As Integer) As Integer

'torna il numero dei giorni di un mese
MonthDay = Day(DateSerial(nAnno, nMese + 1, 0))

End Function

PS: il dateserial sa già al suo interno se un anno è bisestile
cionci
24-12-2003, 17:54
Originariamente inviato da matpez
Qua cionci ti correggo...

Un anno è bisestile se il suo numero è divisibile per 4, tranne che se sia divisibile per 100 (ma è bisestile se è divisibile per 400).

infatti i secoli nn sono bisestili, ma il 2000 lo era perchè entrava nel'esempio di mod 400
Io ero convinto che gli anni bisestili fossero uno ogni 4 e basta...bene a sapersi...
matpez
24-12-2003, 18:33
Originariamente inviato da cionci
Io ero convinto che gli anni bisestili fossero uno ogni 4 e basta...bene a sapersi...

Se ti devo dire la verità fino a pochi mesi fa anche io ;)
cionci
24-12-2003, 18:36
Chissà quanti programmi soffriranno di bug del 2100 !!! Qualcuno anche mio ;)
matpez
24-12-2003, 18:48
Originariamente inviato da cionci
Chissà quanti programmi soffriranno di bug del 2100 !!! Qualcuno anche mio ;)

:oink:
prodan
24-12-2003, 21:54
grazie ragazzi sempre molto disponibili!!!
Auguri di Buon Natale!!
Cmq riflettento un pò di più anche io sono giunto alla conclusione!!
A volte penso poco e mi avvento subito a chiedere aiuto!! Forse o poca fiducia in me stesso!!!
Cmq la cosa del 400 non la sapevo, OTTIMO credo che risolverà alcuni probabili bug nei programmi fatti!
Ciao
matpez
24-12-2003, 22:17
Originariamente inviato da prodan
grazie ragazzi sempre molto disponibili!!!
Auguri di Buon Natale!!
Cmq riflettento un pò di più anche io sono giunto alla conclusione!!
A volte penso poco e mi avvento subito a chiedere aiuto!! Forse o poca fiducia in me stesso!!!
Cmq la cosa del 400 non la sapevo, OTTIMO credo che risolverà alcuni probabili bug nei programmi fatti!
Ciao

:p

BUON NATALE! :oink: