Function DatoInterval(Dato1 As Date, Dato2 As Date) As String() Dim i As Integer Dim datoer() As String i = 0 ReDim datoer(DateDiff("d", Dato1, Dato2)) While Not DateAdd("d", i, Dato1) > Dato2 datoer(i) = DateAdd("d", i, Dato1) i = i + 1 Wend DatoInterval = datoer() End Function
se mit nyve spørgsmål.. det er lidt ligende dette bare med lidt ændringer...
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.