vb6 giorni del mese

[Alexandix]

ciao a tutti

sto cercando una funzione che mi restituisce il totale dei giorni di un mese e il giorno della settimana del primo.

esempio, digito mese e anno (febbraio,2004) e mi restituisce 29 e domenica

esiste una funzione per fare ciò in vb?
o in alternativa una funzione che mi dice se l'anno digitato e bisestile o meno.

ciao e grazie

[optime]

per il primo giorno del mese non ci sono problemi: WeekDay("01/" & mese & "/" & Anno)
per i giorni, calcoli (con datediff) quanti giorni tra il primo di questo mese e il prossimo.
per sapere se e' bisestile, prova a calcolare WeekDay("29/02/" & Anno): se non ti da' errore, e' bisestile.

[Mabi]

Mi ricordo di un'altra discussione...
Prova con questa procedura:

Private Sub CalcoloGiorni(ByVal Mese As Byte, ByVal Anno As Integer, _
ByRef Giorni As Byte, ByRef PrimoDelMese As String)
Dim DataC As Date

DataC = CDate("01/" & CStr(Mese) & "/" & CStr(Anno))
PrimoDelMese = WeekdayName(Weekday(DataC, vbMonday))

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 Sub

Che richiami facilmente:

Dim Giorni As Byte
Dim Primo As String

Call CalcoloGiorni(2, 2004, Giorni, Primo)
MsgBox CStr(Giorni) & " " & Primo

[Alexandix]

grazie per le risposte

ciao