Hej

Jag sitter och försöker få till en funktion som visar datumet för första vardagen i vald månad.

Någon som kan hjälpa mig på travet har försökt men minna kunskaper sätter stopp för det.

Mvh
Tobbe

<code>
Function FirstWeekdayOfMonth(Year As Integer, Month As Integer) As Date
FirstWeekdayOfMonth = DateSerial(Year, Month, 1)
Select Case WeekDay(FirstWeekdayOfMonth)
Case vbSunday
FirstWeekdayOfMonth = FirstWeekdayOfMonth + 1
Case vbSaturday
FirstWeekdayOfMonth = FirstWeekdayOfMonth + 2
End Select
End Function
</code>

Hej och tack Andreas

Fick till det med:
Dim Mon As Variant

Mon = Month(Text1)
Text4 = FirstWeekdayOfMonth((CmbYear), (Mon))

Mvh
Tobbe