Returnere år, uge og dag til et tal

har jeg forståde dig korekt du ønsker at få antal dag ud fra en given dato, så du får dagens nummer ?

clng(dato)

Mit felt hedder: StrtSalg og det viser 11-17-3.
Altså år-uge-dag. Jeg vil gerne have et tal i stedet for, altså 40660.

=clng([StrtSalg])

eks.

Navn: StrtSalgTitel (du er nød til at lave navnet om, så det ikke er det samme som kontrolelementkilden)

Kontrolelementkilde: =clng([StrtSalg])

=clng([StrtSalg]) giver tallet 11173 og ikke 40660.

11-17-3 er det samme som datoen 27-04-2011 og datoen har løbenumret 40660.

Det er tallet 40660 jeg er interesseret i.

hvordan hænger 11-17-3 sammen med 27-04-2011?~)

11-17-3
År-uge-dag

År:2011, uge:17, dag:3

Det er det samme som den 27. april 2011.

Har gravet lidt ned i noget gammel kode. Prøv denne her:

Function ÅrUgeDag_Til_Integer(År As Integer, Uge As Integer, Dag As Integer) As Long
  Dim StartDato As Date
  Dim DagsKorrektion As Integer

  StartDato = DateSerial(År, 1, 1)
  DagsKorrektion = Weekday(StartDato, vbMonday) - 1
  If DagsKorrektion > 3 Then DagsKorrektion = DagsKorrektion - 7
       
  ÅrUgeDag_Til_Integer = CLng(StartDato + (Uge - 1) * 7 + (Dag - 1) - DagsKorrektion)
End Function

Sub Test
  Debug.Print ÅrUgeDag_Til_Integer(11, 17, 3)
End Sub

Sorry, jeg havde glemt alt om dette spm!~)

fdata's funktion virker og du kan aktivere det med EfterOpdaterings hændelsen, det nemmeste vil nok være at lave et ekstra felt i din tabel, som kan indeholde dit nummer. Så er det også nemt at lave søge funktioner..

Hej fdata,

Tak for svaret.


Til spg: Tak for hjælpen. Jeg har et spørgsmål ude på 200 points: http://www.eksperten.dk/spm/944237#reply_7817667

som jeg venter svar på, men som endnu ikke er modtaget. Hvis du samler på points, kan du sende et svar på dette spørgsmål...

næh.. jeg samler ikke mere!~)

...du må dog ikke uddele mere end 200p samlet for et spm...

...og de tilhører vel egentlig brugereksperten!~)

Hej spg,

Du har ret.
Tak for hjælpen!

... og tak for point herfra ;O)