Word vba DTpicker

Du kan bruge følgende funktion (kom den i et "module"):

Public Function ConvertDate(ByVal inputDate As String) As Date
    Dim splitString, arrMonths As Variant
    Dim intYear, intMonth, intDay As Integer
    arrMonths = Array("januar", "februar", "marts", "april", _
    "maj", "juni", "juli", "august", "september", "oktober", _
    "november", "december")
    splitString = Split(inputDate, " ")
    intDay = CInt(Replace(splitString(0), ".", ""))
   
    For i = 0 To UBound(arrMonths)
        If (UCase(arrMonths(i)) = UCase(splitString(1))) Then
            intMonth = i + 1
            Exit For
        End If
    Next i
   
    intYear = CInt(splitString(2))
   
    ConvertDate = DateSerial(intYear, intMonth, intDay)
End Function

For at konvertere din dato til DATE formatet. Bemærk dog at jeg har lavet funktionen KUN til det tilfælde af datoer. Hvis de ser på nogen måde anderledes ud eller står med et andet sprog end dansk vil funktionen ikke virke.

Sæt værdien af din DTPicker således: DTPicker.Value = ConvertDate("25. oktober 2012")

Håber det hjælper.

P.S. Husk at lukke dine spørgsmål når du har en tilfredsstillende besvarelse, eller skriv hvad der mangler.

- Xenoxsis