Søg
Avatar billede bvk Juniormester
18. maj 1999 - 18:45 Der er 7 kommentarer og
1 løsning

Datoberegninger ud fra cpr. nr.?

hejsa.......

1.
Jeg skal beregne tiden fra èn dato til en anden, altså den tid (i dage) som er gået fra den ene dato til den anden. F.eks. fra en fødselsdato til i dag

2.
Og så skal jeg finde en dato ude i fremtiden...........
F.eks. date()+ 1 år og 3 mdr. eller f.eks. date()+90 dage

Jeg har deltaget på et access 3 kursus hvor læren mente at vide hvordan man gjorde.........F.eks personnummer\10000 modolus 100 så skulle man have fødsels året i heltal, men dette virker ikke når man er født efter d. 21 i en mdr. Tilsyneladende fordi at man kommer op over Dobbelt heltal som jo er 2.147.483.647 han mente at holdt man et personnummer i heltalsformat kunne det lade sig gøre at regne på det............


Er her måske hjælp at få til mit problem???

På forhånd tak
Venlig hilsen

Bo Kristensen
bvk@post5.tele.dk
Avatar billede bkp Nybegynder
18. maj 1999 - 20:31 #1
Dim NyDato, Nu As Date
Nu = Now()
NyDato = Format(Nu + 31, "dd-mm-yyyy")
MsgBox NyDato & " er 31 dage større end " & Nu

www.bkp.dk
Avatar billede bkp Nybegynder
18. maj 1999 - 20:34 #2
Dim TidGået
TidGået = Format(Now() - format("01-05-1970", "dd-mm-yyyy"), "d")
Msgbox TidGået
Avatar billede ruprect Nybegynder
18. maj 1999 - 22:13 #3
Jeg er ikke så meget inde i Access - Men jeg ved at man på en ASP side kan bruge datediff()

- Michael
Avatar billede bvk Juniormester
18. maj 1999 - 23:58 #4
Jeg tror at jeg forstår Kommentaren fra "bkp" men ville gerne have set et lille eksempel på en beregning ud fra et Cpr.Nr.
De andre kan jeg desværre ikke bruge/forstå.
Avatar billede Slettet bruger
19. maj 1999 - 08:33 #5
Brug DateDiff

Dim AntalDage as integer
Dim Date1 as date
Dim Date2 as date

Date1 = "01-07-99"
Date2 = "08-07-99"

AntalDage = DateDiff("d",Date2, Date1)

''''Antal Dage er nu 7
Avatar billede Slettet bruger
19. maj 1999 - 08:38 #6
MHT CPRnummer skal du ærklærer den som string

Dim CPR as string
Dim CPRDato as date
Dim NyDato as date
Dim AntalDageIFremtiden as integer
CPR = "1012856950"
CPRDato = Mid(cpr,1,2) & "-" & mid(cpr,3,2) & "-" & mid(cpr,5,2)

''''CPRDato indeholder nu "10-12-85"

AntalDageIfremtiden = 66

NyDato = CPRDato + 66
Avatar billede bkp Nybegynder
19. maj 1999 - 16:31 #7
Dim TidGået, CPRNr
CPRNr = "010570-0578"
TidGået = Format(Now() - cdate(Left(CPRNr, 6)), "yyyy")
Msgbox "Alder " & TidGået
Avatar billede bvk Juniormester
21. maj 1999 - 22:49 #8
Tak for hjælpen.........
Jeg prøver lige at tumle videre, så jeg takker for hjælpen..........
Det kan godt være at jeg må vende tilbage igen senere.......
jeg overfører nu de 60 point
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
Access kurser
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser
Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel Indlæg Oprettet Seneste aktivitet
Access udskrift mangler del af ramme om post. Af Uvanga i Access 4 24/10/202620:40 26/10/202611:07
Fejl ved forsøg på åbning af Access mdb og mde Databaser Af Uvanga i Access 4 20/10/202614:59 22/10/202615:17
en word dotx fil stilles om til at blive gemt i skyen Af per2edb i Access 9 16/04/202620:11 21/04/202615:43
AI integreret i Access Af per2edb i Access 3 06/04/202610:42 06/04/202612:58
Autonummerering Af hlnviv i Access 2 06/03/202606:24 06/03/202607:48
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 01:00 Problemer med software til Power Walker UPS - Nødstrømsbatteri Af ErikHg i Andet software
I går 20:16 Snapchat Af made18 i Apps til iOS
31/1013:01 Måned og år på graf Af mort1 i Excel
31/1012:28 2 diske Af dcedata1977 i Andet hardware
31/1012:06 Ekstra til TV 2 : "Tilkøb" + "TV2 Ude" Af Ikke-ekspert i Fjernsyn & projektorer
White papers
Flere white papers »