Dato problemmer!
Jeg har følgende kode stykke, som tager dags dato og ligger en måned og 5 dage til datoen. Det virker egentlig fint nok, men ikke på alle datoer. Hvis vi fx har dags dato. Mit input til koden er: "030707" og det er i den samme format jeg skal have det ud i. Den laver beregningen korrekt, men den sidste linie"xD1 = Val(Format(Dato2, "ddmmyy"))" kommer den ud som "80807" her skal jeg bruge "080807". Men det virker nu hvis datoen var den "120707", så vil jeg få "170807" men det er nullet den ikke kan håndtere. Kan nogle hjælpe med denne nok simple opgave?
Public Function DatoogenMåned(ByVal strOrdreDato As String) As String
Dim Dato1 As Date, Dato2 As Date, xD0 As String, xD1 As Variant
xD0 = CStr(strOrdreDato)
'Rem konverter til datoformat
Dato1 = Left(xD0, 2) + "-" + Mid(xD0, 3, 2) + "-" + Right(xD0, 2)
'Rem Forøg måned med 1
Dato2 = DateAdd("m", 1, Dato1)
'Rem Forøg dag med 5
Dato2 = DateAdd("d", 5, Dato2)
'Rem ren numerisk
xD1 = Val(Format(Dato2, "ddmmyy"))
DatoogenMåned = xD1
End Function
