|
|||||||
|
|
|
 |
|
|
Strumenti |
24-12-2003, 17:50
|
#1 |
|
Member
Iscritto dal: Apr 2003
Messaggi: 177
|
Funzione x VB6 Calcolo giorno massimo del mese
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!!! |
|
|
|
24-12-2003, 17:54
|
#2 |
|
Senior Member
Iscritto dal: Apr 2000
Città: Vicino a Montecatini(Pistoia) Moto:Kawasaki Ninja ZX-9R Scudetti: 29
Messaggi: 53971
|
Per vedere se l'anno è bisestile è facile:
Codice:
If (anno Mod 4) = 0 Then 'anno bisestile Else 'anno non bisestile End If |
|
|
|
|
24-12-2003, 18:43
|
#3 | |
|
Senior Member
Iscritto dal: Aug 2002
Città: Biella
Messaggi: 1882
|
Quote:
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
__________________
"Analizzando e valutando ogni giorno tutte le idee, ho capito che spesso tutti sono convinti che una cosa sia impossibile, finchè arriva uno sprovveduto che non lo sa e la realizza!" A. Einstein |
|
|
|
|
|
24-12-2003, 18:45
|
#4 | |
|
Senior Member
Iscritto dal: Aug 2002
Città: Biella
Messaggi: 1882
|
Re: Funzione x VB6 Calcolo giorno massimo del mese
Quote:
Codice:
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
__________________
"Analizzando e valutando ogni giorno tutte le idee, ho capito che spesso tutti sono convinti che una cosa sia impossibile, finchè arriva uno sprovveduto che non lo sa e la realizza!" A. Einstein |
|
|
|
|
|
24-12-2003, 18:54
|
#5 | |
|
Senior Member
Iscritto dal: Apr 2000
Città: Vicino a Montecatini(Pistoia) Moto:Kawasaki Ninja ZX-9R Scudetti: 29
Messaggi: 53971
|
Quote:
|
|
|
|
|
|
24-12-2003, 19:33
|
#6 | |
|
Senior Member
Iscritto dal: Aug 2002
Città: Biella
Messaggi: 1882
|
Quote:
__________________
"Analizzando e valutando ogni giorno tutte le idee, ho capito che spesso tutti sono convinti che una cosa sia impossibile, finchè arriva uno sprovveduto che non lo sa e la realizza!" A. Einstein |
|
|
|
|
|
24-12-2003, 19:36
|
#7 |
|
Senior Member
Iscritto dal: Apr 2000
Città: Vicino a Montecatini(Pistoia) Moto:Kawasaki Ninja ZX-9R Scudetti: 29
Messaggi: 53971
|
Chissà quanti programmi soffriranno di bug del 2100 !!! Qualcuno anche mio
|
|
|
|
|
24-12-2003, 19:48
|
#8 | |
|
Senior Member
Iscritto dal: Aug 2002
Città: Biella
Messaggi: 1882
|
Quote:
__________________
"Analizzando e valutando ogni giorno tutte le idee, ho capito che spesso tutti sono convinti che una cosa sia impossibile, finchè arriva uno sprovveduto che non lo sa e la realizza!" A. Einstein |
|
|
|
|
|
24-12-2003, 22:54
|
#9 |
|
Member
Iscritto dal: Apr 2003
Messaggi: 177
|
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 |
|
|
|
|
24-12-2003, 23:17
|
#10 | |
|
Senior Member
Iscritto dal: Aug 2002
Città: Biella
Messaggi: 1882
|
Quote:
 BUON NATALE!
__________________
"Analizzando e valutando ogni giorno tutte le idee, ho capito che spesso tutti sono convinti che una cosa sia impossibile, finchè arriva uno sprovveduto che non lo sa e la realizza!" A. Einstein |
|
|
|
|
|
|
| Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 07:37.
