Hej

Jag behöver veta hur jag skall få föregående månad i en text ruta om man t,ex klickar fram September i en list då skall Augusti visas i text1.

text1= Format(DateAdd("M", -1, combo1)) eller dyl.


H/tobbe

Så här löste jag det
<code>
Option Explicit
Private Sub Command1_Click()
Dim mNow As String
Dim mPrev As String
'Lägg in månader i ComboBoxen så att månader får ListIndex 1 - 12
'Då kan mNow bli mNow = Combo1.ListIndex - 1 (combo börjar på 0, januari blir 0)
mNow = Format$(Date, "mm")
mPrev = CStr(mNow - 1)
If mPrev = "0" Then
Text1.Text = Format$(Replace(Date, mNow, "12"), "mmmm")
Else
Text1.Text = Format$(Replace(Date, mNow, mPrev), "mmmm")
End If
End Sub
</code>
Du behöver inte använda datum alls om det står Oktober i ComboBoxen
kan du bara läsa av ListIndex och ta det som ListIndex - 1 till TextBoxen