Oprettet ons. d. 05. januar 2005 kl. 13:47:04

staticdata
staticdata (14.989 point. Point ude: 0)

Hvilken dato har søndagen i uge 34, 2004?

Det er selvfølgelig nemt at slå op i en kalender. Jeg ønsker imidlertid et simpelt VB-kald, som -givet år, uge og ugedag- kan give mig datoen uden at jeg behøver at regne det ud udfra 1.januar, ugeregler o.lign. Kan nogen hjælpe?

Skrevet ons. d. 05. januar 2005 kl. 13:50:52| #1

Public Function FindDato(År As Integer, Uge As Byte, Dag As Byte) As Date
  FindDato = DateSerial(År, 1, Uge * 7 + Choose(DatePart("w", DateSerial(År, 1, 1), vbMonday, vbFirstFourDays), Dag - 7, Dag - 8, Dag - 9, Dag - 10, Dag - 11, Dag - 7, Dag - 6))
End Function

Svar: 22-8-2004

Skrevet ons. d. 05. januar 2005 kl. 13:51:12| #2

jensen363
jensen363 (27.726 point)
Format([Dato];"dddd") ???

Skrevet ons. d. 05. januar 2005 kl. 13:53:34| #3

staticdata
staticdata (14.989 point)
Mucho grazi - prøver den lige lidt senere.

Skrevet ons. d. 05. januar 2005 kl. 14:01:25| #4

charlotterj
charlotterj (13.335 point)
Jensen636->din funktion returnere da kun ugedagen skrevet med bogstaver...

Skrevet ons. d. 05. januar 2005 kl. 14:02:57| #5

jensen363
jensen363 (27.726 point)
Korrekt, men så kan man jo søge på ugedagen :o)

Skrevet ons. d. 05. januar 2005 kl. 14:05:12| #6

staticdata
staticdata (14.989 point)
jensen, det var Dato jeg skulle finde .. afvent lige min test af thomasjepsens svar

Skrevet fre. d. 07. januar 2005 kl. 00:09:03| #7

staticdata
staticdata (14.989 point)
Undskyld det tog lidt tid, men din rutine virker; jeg skal blot vænne mig til, at den også "virker" på "FindDato(2005, 53, 7)" selvom der kun er 52 uger i 2005. At lørdag og søndag i uge 53, år 2004 ligger i 2005 har jo ikke noget med dette at gøre, men det skal jeg -ligesom det offentlige- også lige vænne mig til.

Tak under alle omstændigheder - jeg synes, at dit svar tangerer til "genialt".

Skrevet fre. d. 07. januar 2005 kl. 08:08:46| #8

tak for de pæne ord :o)

jeg har ikke prøvet med uge 57, men hvis det virker, er det fordi Access' egen DateSerial accepterer uge 57...

Men under alle omstændigheder er det jo altid en god ide at lægge lidt fejlhåndtering ind.

Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   

   

Seneste spørgsmål

Link til et dokument

Oprettet den 10. februar 2012 kl. 14.15
omn giver 60 point for svar | Giv et svar »

Formular med flere paramtre

Oprettet den 9. februar 2012 kl. 16.48
stuegnu giver 100 point for svar | Giv et svar »

Kodemodul ???

Oprettet den 8. februar 2012 kl. 17.05
olejohn giver 200 point for svar | Giv et svar »

Seneste guides

Installer win 7
Den gode bruger


   




Tips & Tricks fra PC World

Teaser billede

Her er fem sjove danske websider du skal kende

Trænger dine lattermuskler til en omgang fitness på dansk? Vi viser vej til fem websider fyldt med humor og vanvittig satire.


Anmeldelser fra PC World

Teaser billede

Test: Denne super-tablet er iPads hårdeste konkurrent

Eee Pad Transformer Prime er frygtindgydende med sin quadcore processor og evne til at trylle sig om til bærbar. Apple bør kigge i bagspejlet, for Asus' tablet-pc kommer buldrende - og gør det...


Seneste blogindlæg

Teaser billede

Tvangslukke spørgsmål: Hvad er den bedste løsning?

Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...


Nyheder fra PC World

Teaser billede

Nu kan du snart hente Windows 8

Den nye offentlige betaversion af Windows 8 er klar i denne måned.


Nyheder fra Computerworld

Teaser billede

Måske snart slut med Androids helt store problem

Android-platformen har længe været plaget af et særligt problem. Men måske er problemet nu ved at være elimineret.


Kurser
Samarbejdspartnere

Udgiver · © 2012 IDG Danmark A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger