Hej!

Jag har en combo....i den så vill jag lista månaderna på ett år... När jag sedan väljer en månad så vill jag lista de datumen i den månaden i en annan combo


Hur använder jag datum funktionerna i vb för att lösa detta

<code>
jag har iofs inte kollat upp datumfunktionerna - men det blir så lite kod
så jag är tveksam till om det är lönt.

Du kan tex skriva ngt liknande:

'vid event combo1 - innehållande månader

select index+1
case 1,3,5,7,8,10,12
dagar = 31
case 2
dagar = arSkottar(artal) 'finns funktion för at kolla -
'i alla fall här på sidan, om inte jag missminner mig
case else
dagar = 30
end select

for i = 1 to dagar
combo2.add(i)
next i

/Emma
</code>

Du missade exemplet lol

Hej
Du kan ju testköra detta exempel och modifiera efter behov

Option Explicit
'Två ComboBoxar och en TextBox där årtalet skrivs

Private Sub Form_Load()
Dim i As Long, lngDatum As Long
lngDatum = CDate("2002 -01 -01")
Text1.Text = Format$(Date, "yyyy")
For i = 1 To 12
Combo1.AddItem StrConv(Format$ _
(lngDatum, "mmmm"), vbProperCase)
lngDatum = lngDatum + 32
Next 'i
Combo1.ListIndex = 0
End Sub

Private Sub Combo1_Click()
Dim i As Long, cbo2Str As String
Combo2.Clear
For i = 1 To 31
cbo2Str = Format$(Text1.Text & "-" _
& CStr(Combo1.ListIndex + 1) _
& "-" & CStr(i), "dddd ") _
& Format$(Text1.Text & "- " _
& CStr(Combo1.ListIndex + 1) _
& "-" & CStr(i), " d mmmm")
If IsNumeric(Left$(cbo2Str, 1)) Then Exit For
Combo2.AddItem cbo2Str
Next 'i
Combo2.ListIndex = 0
End Sub

mvh
Sven

OK och Tack.....

Jag skall kicka på bårda exemplen....

/tyronne