Avatar billede Slettet bruger
20. januar 2006 - 13:55 Der er 6 kommentarer og
1 løsning

Dage til Jul

Hej alle sammen.

Jeg har et lille problem med Datediff.
Skal lave et modul som kan udregne hvor mange dage der er til Jul.Men kan ikke helt få min funktion til at gå op
Har lavet følgende Kode

Option Compare Database

Dim Juleaften As Date
Juleaften = #12/24/2006#
AntalDageTilJul = DateDiff("d", Now(), Juleaften)

End Function

Ved at jeg er på rette vej, men mangler lige det sidste
Håber der er en der kan hjælpe :o)
Avatar billede terry Ekspert
20. januar 2006 - 14:02 #1
DateDiff("d", Now(), Cdate(#2006-12-24#))
Avatar billede terry Ekspert
20. januar 2006 - 14:04 #2
dont really need the cdate function

DateDiff("d", Now(), #2006-12-24#)

So this should work
Dim Juleaften As Date
Juleaften = #2006-12-24#
AntalDageTilJul = DateDiff("d", Now(), Juleaften)
Avatar billede terry Ekspert
20. januar 2006 - 14:05 #3
or a bit more dynamic

DateDiff("d", Now(), DateSerial( Year(date), 12, 24))
Avatar billede terry Ekspert
20. januar 2006 - 14:12 #4
If its a function you are having problems with then


Option Compare Database

Public Function DaysToXmas() as integer

DaysToXmas = DateDiff("d", Now(), DateSerial( Year(date), 12, 24))

End Function
Avatar billede Slettet bruger
20. januar 2006 - 14:36 #5
LOL Sorry Havde glemt at putte en start Function ind forand havde kun skrevet
"end function" til sidst

Function Antaldage()

Dim Juleaften As Date
Juleaften = #12/24/2006#
AntalDageTilJul = DateDiff("d", Now(), Juleaften)

End Function
Men nu virker det :P

Men Efter det er rigtigt det du har skrevet, og det ville virke lige så godt med dine koder som med mine, får du bare de 15 poing.
Du må have en god weekend.. ;o)
Avatar billede terry Ekspert
20. januar 2006 - 14:47 #6
tak og god weekend til dig også
Avatar billede sjap Praktikant
20. januar 2006 - 18:15 #7
Det kunne vel også gøre lidt enklere:

Function Antaldage()
Dim Juleaften As Date

Juleaften = #12/24/2006#
AntalDageTilJul = Juleaften - Date()

End Function

;0)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester