Newsgroup: it.comp.lang.visual-basic
Titolo: Numero giorni mese corrente

Esiste una funzione per conoscere il numero di giorni del mese corrente?

 Esiste una funzione per conoscere il numero di giorni del mese corrente?
te la puoi facilmente fare:
dim d1 as date,d2  as date
dim NrGiorni as long
d1 = dateserial(year(now),month(now),1)    ' Trovo il primo del mese
corrente
d2 = dateadd("m",1,d1)            ' Trovo il primo del mese prossimo
NrGiorni = datediff("d",d1,d2)    ' Faccio la differenza per giorni
Ciao
Ettore Maronese
il Mes
Ps: Visitate ed aiutate il Sito del Nostro amato NG:
http://www.it-lang-vb.net

 NrGiorni = datediff("d",d1,d2)    ' Faccio la differenza per giorni
Oppure:
if (Month(Now) = 12) then
    NrGiorni = Day(DateSerial(Year(Now) +1 , 1, 1) - 1)
else
    NrGiorni = Day(DateSerial(Year(Now),Month(now) + 1, 1) - 1)
endif
Giusto?
Ciao

Esiste una funzione per conoscere il numero di giorni del mese corrente?
Userei una Select Case sul mese corrente.
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 0.68, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
Nike Air Up Tempo Sad Walker -- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD
   On contrary of popular belief, Unix *IS* user friendly:
    it just appears to be selective who it is friend with

 writes:
R> Esiste una funzione per conoscere il numero di giorni del mese corrente?
Trenta giorni ha novembre, con april, giugno e settembre, di 28 ce n'é
1, tutti gli altri ne han 31.
Facile fare quindi una funzione del tipo
' Non  mi piace usare  gli integer. OCIO!  Buttata giů di getto  e non
' testata
function giorniNelMese(giorno as Date) as long
    Dim mese as long
    Dim anno as long
    mese = Month(giorno)
    anno = year(giorno)
    Select Case mese
        Case 4, 6, 9, 11
            giorniNelMese = 30
        Case 2
            If Year Mod 4 = 0 Then
                If Year Mod 100 > 0 then 
                    giorniNelMese = 29
                ElseIf Year Mod 400 = 0 Then
                    giorniNelMese = 29
                Else
                    giorniNelMese = 28
                End If
            Else
                giorniNelMese = 28
            End If
        Case Else
            giorniNelMese = 31
    End Select
End Function
-- 
Gian Uberto| main(){printf(&unix["\021%six\012\0"],(unix)["have"]+"fun"-0x60);}
Lauri      |                        David Korn, 1987 ioccc best one liner 
(aka saint)|-------------------------------------------------------------------
em@ail: 
sa...@eng.it
 ( vedere X-nospam nello header - see X-nospam in header )



non è necessario l'if, poiché incrementa automaticamente l'anno, quindi
basta:
NrGiorni = DateDiff("d", DateSerial(Month(Date), Month(Date), _
Day(Date)), DateSerial(Month(Date), Month(Date) + 1, Day(Date)))
Ciao,
Moreno
-- 
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:9rjdiu$56n$1...@nreada.inwind.it...


 Day(Date)), DateSerial(Month(Date), Month(Date) + 1, Day(Date)))
Mannaggia :)
Avevo il dubbio, ma non la voglia di provarlo... :P
Ciao


Ma non hai mantenuto la rima !
@<|;-D


Ettore Maronese, il Mes
Visitate il Sito Comune di questo NG:  
http://www.it-lang-vb.net


iDays= Choose(Month(now), 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
if iDays=28 then
    If (iYear Mod 4 = 0 And iYear Mod 100 <> 0) Or iYear Mod 400 = 0 Then
iDays=29
End If

Posso usare il datareporter di vb6 con DAO ?
Grazie

 Posso usare il datareporter di vb6 con DAO ?
Se non sbaglio no, funziona solo con ADO.
Perņ vado a memoria, controlla con l'amico F1.
Ciao,
Carlo.