Dato

Hvor har du årstallet? Og hvor skal du bruge det færdige resultat?

Hvis du har årstallet i en tabel, kan du lave en forespørgsel, meds et udtryksfelt Dato: "01-01-" & [Year]
idet jeg forudsætter at året findes i et tabelfelt med navnet Year.

Dato = Format ("01-01" & Datepart("y",now()), "dd-mm-yyyy")

[year] er noget som jeg bruger i min Forespørgsel, dvs at det er noget som brugeren indtaster når forespørgslen åbnes. [Year] bliver så igen brugt i en Funktion (Modul). Year, skal blive en del af datoen 01-01 (1.januar)

Så bør ovenstående virke, hvis du husker at formatere udtryksfeltet i forespørgslen som dd-mm-yy.

Følgende udtryksfelt
Dato: "01-01-" & [year]

giver i mit eksempel 01-01-02, når man indtaster 02 som [year].

Use this line in your query
dato: CDate(Format("01-01-" & GetYear(),"dd-mm-yyyy"))


Which sets YR when the query gets run

Place the following in a module


Public YR as integer

Function GetYear() As Variant

YR = InputBox("Indats År", , DatePart("yyyy", Date))

GetDate = YR
   
End Function

Okay, thanks Terry :o)

terry: jeg har jeg får 43 når jeg bruger:

Dato = Format ("01-01" & Datepart("y",now()), "dd-mm-yyyy")

Så får jeg datoen 01-01-43...Hvad går galt?

Jeg bruger dette:

Dato = Format ("01-01" & Datepart("y",now()), "dd-mm-yy")

Try!
Dato = Format ("01-01" & Datepart("y",date()), "dd-mm-yyyy")

Jeg får stadig 43.....Hvad får du når du afprøver Det?

dreaming here sorry!
Format ("01-01-" & Datepart("yyyy", date()), "dd-mm-yyyy")

Tak