Udregning af dage mellem to datoer

der skal selvfølge stå IKKE se løsningen nogen steder.
Hilsen Lotte

Public Function Alder2(Dato1 As Date, Dato2 As Date) As Integer
    \'alder mellem 2 datoer
    If DateSerial(Year(Dato2), Day(Dato1), Month(Dato1)) > Date Then
        Alder2 = DateDiff(\"yyyy\", Dato1, Dato2) - 1
    Else
        Alder2 = DateDiff(\"yyyy\", Dato1, Dato2)
    End If
End Function

Kan man ikke bare bruge dette i en forespørgsel:

=DateDiff(\"d\"; Dato1; Dato2) - 1

Sorry, denne funktion beregner antal år mellem 2 datoer...duer nok ikke i dit tilfælde ;o)

I stedet kan du f.eks. i en tekstboks skrive:
=Datediff(\"d\"; [Slutdato];[Startdato])

Hvis du vil gange en pris på, hedder den bare:
=Datediff(\"d\"; [Slutdato];[Startdato])*[Dagspris]

ProAccess...jo selvfølgelig ;o)

Længe siden, at man har hørt noget fra dig? Eller er det bare fordi jeg ikke har været så aktiv på det seneste?

Hej igen
Lige et tumpe spørgsmål
Jeg skal da sætte dette ind i en forespøgsel ikke????

Det kan du også gøre.
Derved skal feltet f.eks. se således ud:

Pris: Datediff(\"d\"; [Startdato];[Slutdato])+1*[Dagspris]

En lille rettelse:
Pris: (Datediff(\"d\"; [Startdato];[Slutdato])+1)*[Dagspris]

>Thomas: Jo, jeg er hér skam endnu... Der er dog også en del arbejde (af den kedelige slags som \"heldigvis\" giver løn), som skal klares ;-(

Lav en forespørgsel med dette indhold;
SELECT Dato.Dato1, Dato.Dato2, [dato2]-[Dato1]+1 AS AntalDage, Dato.DagsPris, [AntalDAge]*[Dagspris] AS SamletPris
FROM Dato;
Hvor din tabel hedder Dato og indeholder felterne Dato1, Dato2 og Dagspris

Man kan lave en lidt mindre stueren men mere effektiv beregning ved i stedet at bruge:

AntalDage = (Fix([SlutDato]) - Fix([StartDato])) + 1

Det er naturligvis afhængigt af at formatet for dato-typen ikke ændrer sig, men sandsynligheden er ringe.

lpj>If your not sure how to do this then I could take a look at the problem for you!
dkTeBrSa@Europe.lego.com

Hej
Mange tak for hjælpen, jeg ved ikke hvem der skal have point for der er ikke nogen af jer der har helt ret, eller også er det mig, der gør det forkert, for jeg blev ved med at få fejl, men opdagede at hvis jeg skrev:
udtryk1 start-stop, så regnede den dagene ud
og derefter
udtryk1* dagspris
så giver det den korrekte pris
Jeg ved ikke om det er rigtigt eller om der opstår fejl senere.
Men hvem der skal have point ja det kan jeg ikke regne ud, men skriv og vi finder ud af det. Det kunne jo også være at I kan fortælle mig hvad der gik galt når jeg prøvede jeres forslag. (Jeg kan jo altid blive lidt klogere
Hilsen Lotte

Det skyldes at du ikke f.eks. skrev
Antaldage:(Datediff(\"d\"; [Startdato];[Slutdato])+1)

Hvis du blot skrev
(Datediff(\"d\"; [Startdato];[Slutdato])+1)
vil Access delv skrive Udtryk1 foran (og det bliver så kolonnenavnet)

mvh
Thomas

delv = selv

Hej Lotte
Jeg er ikke så hooked på pointene, så giv dem bare til hvem du nu synes. Men vær lidt varsom med din metode; den vil kun virke hvis der er tale om hele dage. Hvis et kursus strækker sig fra klokken ni den ene dag til kl. 12 den næste får du ikke 2 ud af det med din udregning.
Datoer i Access er flydende tal. Heltalsdelen er antal dage siden en bestemt dato, så vidt jeg husker 1/1-1850 mens decimaldelen er udtryk for hvor stor en del af døgnet der er gået. 0,5 vil altså være kl. 12. Derfor vil det altså fungere fint at trække to datoer fra hinanden, så længe tidspunktet på de to datoer er ens.

Lotte,

Hvis du er i tvivl om hvem, som skal have hvormange point, mener jeg at Proaccess skal have flest, da han først kom med et (næsten korrket) svar. Hans beregning regnede dog 2 dage forkert, hvilket undertegnede og de 2 andre fik rettet op på.
Så mit umiddelbare objektive bud er at ProAccess skal have 200 og vi andre 100 point. Eller også skal vi alle have lige mange point.

/Thomas

Hej med jer
Da alle have svaret \"rigtigt\" og \"forkert\" vælger jeg at give alle lige mange point.
Endnu engang tak for hjælpen
Hilsen Lotte

Det er helt i orden med mig ;-)

Husk Jesper\'s kommentar om tider 10/12 2001 12:42:01, det kan være du kommer til at tage dette i betragtning på et senere tidspunkt...

Mange tak.
Ingen af os er vist blevet snydt:-)