Finde antal dage mellem 2 datoer og udføre beregning

Datoformatet skal helst være xx-xx-xxxx eks: 01-08-2005

can you give some more information.

What fields do you have in your table? Where are "Køber Refunderer" and "Sælger Refunderer" used in the  calcualtion?

Som terry nævner kunne vi godt bruge lidt yderligere informationer. Af dit spørgsmål kan vi udlede at du vil finde antal dage mellem 2 datoer. Det kan du gøre med funktionen dateDiff:

Udtryk1:(DateDiff("d";[Dato1];[Dato2]))

Dette udtryk kan du så beregne videre på.

Efter lidt søgning her på exp fandt jeg svaret - det var såmænd meget simpelt med datadiff funktionen

Mugs - det var præcis den funktion du har postet jeg også fandt, men selvom jeg selv fandt svaret har du alligevel givet mig den ønskede løsning, så point til dig.

... og udføre beregning????

Jeg benytter datediff på følgende måde: AntalDage = DateDiff("d", Me!Betalt_fra_1, Me!Betalt_til_1)

Hvis jeg indtaster en ugyldig dato - f.eks. 31/6-2005 som kun har 30 dage får jeg naturligvis fejl. Er der en enkel måde hvorpå man kan lave en validering

tænker på noget a la.

If Valid AntalDage = DateDiff("d", Me!Betalt_fra_1, Me!Betalt_til_1) Then
Else
MsgBox "Datoen er ugyldig", vbInformation
End if

Terry: min beregning var ikke der hvor jeg havde de store problemer. Men du må da gerne se den:

Private Sub Kommandoknap272_Click()
    Dim Betalt_fra_1 As Date
    Dim Betalt_til_1 As Date
   
    Me!K_refunderer_1 = ""
    Me!S_refunderer_1 = ""
   
    AntalDage = DateDiff("d", Me!Betalt_fra_1, Me!Betalt_til_1)
   
    AntalDageRef = DateDiff("d", Me!Overtagelsesdato, Me!Betalt_til_1)
    AntalDageRef = AntalDageRef + 1
   
    Favoer = Round(((Beloeb_1 / AntalDage) * AntalDageRef), 2)
   
    If Beloeb_1 < Favoer Then
    MsgBox "Perioden er ugyldig", vbInformation
    Else
       
        If AntalDageRef > 0 Then
            Me!K_refunderer_1 = Favoer
        Else
        End If
       
        If AntalDageRef < 0 Then
            Me!S_refunderer_1 = Favoer
        Else
        End If
            Me!Antal_dage_ref_1 = AntalDageRef
            Me!Antal_dage_1 = AntalDage
   
    End If
   
    Refresh
   
End Sub

I was just puzzled by the question.

Finde antal dage mellem 2 datoer

would have been more specific, but you got what you were after, so not to woory :o)

Det har du naturligvis ret i Terry... I kampens hede går det nogle gange lidt for stærkt :)

løste mit valideringsproblem med datoens gyldighed med en simpelt on error goto

Tak for point.