Første og sidste dag i en uge.

Hej.

Det er ikke længe siden spørgsmål http://www.eksperten.dk/spm/283300 blev stillet og besvaret.  Kig dér.

M.v.h. Jørn

Hej, her er min...

' =============================================================
' Description : Returns the start or end date when passed year
'              and week.
' Globals    :
' History    : 02.07.02: Original Code.
' =============================================================
Public Function gf_DATO_I_UGEN(p_intÅr, p_intUge, p_intStart)
On Error Resume Next
   
    gf_DATO_I_UGEN = DateSerial(p_intÅr, 1, 7 * p_intUge - 3 - Weekday(DateSerial(p_intÅr, 0, 0), 3))
   
    '-- Add 6 if end of week
    If Not p_intStart Then
        gf_DATO_I_UGEN = CVDate(gf_DATO_I_UGEN) + 6
    End If
End Function

Så: 
?gf_DATO_I_UGEN(2002,49,0)
09-12-02
?gf_DATO_I_UGEN(2002,49,-1)
02-12-02

#amerikaner

Det ser fint ud..

Jeg er dog stadigvær lidt grøn når det gælder vb...

Jeg har en veriabel lad og kalde den UgeNummer.

Det er så gerne vil have er to nye veriabler en med mandagen i den uge og en med søndagen.

Kan du hjælpe mig med det??

på forhånd tak...

Opret en variabel:
  Dim Variabelnavn As Variabeltype
Mhv variabeltyper, kik i VB's hjælp...

Tilføj værdi til variabel:
  Variabelnavn = Værdi

Kik i VB-hjælp under "Scope" (eller noget i den retning" for at se hvordan variabler er tilgængelige, afhængigt af hvor de er erklæret.

Fx: Erklærer du en variabel INDE i en Sub, er den lokal og kun synlig i denne sub.
Fx: Opretter du den i toppen af din programkode, er den synlig for alle sub og functions i den aktuelle form/modul
... og så kan du se lidt på Private/Public, hvis du har de lyster ;o)

Ja men...så starte vi fra starten...

Hvor er din variable, i en form, i subroutine?

Er det

Dim UgeNummer
Sub Command1_Click()
  ....alt din kode
End Sub

ELLER

Sub Command1_Click()
  Dim UgeNummer
  ....alt din kode
End Sub

Hvis den er indenfor subroutine og du skal brug den indenfor....

Kopi function gf_DATO_I_UGEN inden din form.

og så...

Sub DinSubRoutine()
  Dim UgeNummer
  Dim StartDato as Date, SlutDato as Date
 
  ....din kode
  UgeNummer = [noget????]

  StartDato = gf_DATO_I_UGEN(Year, UgeNummer, True)
  SlutDato = gf_DATO_I_UGEN(Year, UgeNummer, False)

  ....resten af din kode
 
End Sub

Det er det samme undenfor by gore hvad martin siger, kig i hjelpen re: hejarchey af Dimensioner.  Global vs local variables osv.

Når du skriver at jeg skal "Kopi function gf_DATO_I_UGEN inden din form"

Hvor skal jeg så ligge den..

Sådan her????

Private Sub cmdUdfør_Click()

Public Function gf_DATO_I_UGEN(p_intÅr, p_intUge, p_intStart)
On Error Resume Next
   
    gf_DATO_I_UGEN = DateSerial(p_intÅr, 1, 7 * p_intUge - 3 - Weekday(DateSerial(p_intÅr, 0, 0), 3))
   
    '-- Add 6 if end of week
    If Not p_intStart Then
        gf_DATO_I_UGEN = CVDate(gf_DATO_I_UGEN) + 6
    End If
End Function

end sub

Nej, en function skal ligger for sig slev
---------
Function x()
...Code
End Function

Sub Y()
...Code
MitVariable = X(Value)
End Sub
---------
Så
---------
Public Function gf_DATO_I_UGEN(p_intÅr, p_intUge, p_intStart)
  ...A whole bunch of code
End Function

Private Sub cmdUdfør_Click()
..Code
End Sub
---------

You "Call" a function from inside the subroutine, but it lies outside.

Forskel med Public og Private er Private can kun bliv brugt hvor den ligger (Form) og Public kan brug i andre former, moduler, osv.

All together now....

Public Function gf_DATO_I_UGEN(p_intÅr, p_intUge, p_intStart)
On Error Resume Next
   
    gf_DATO_I_UGEN = DateSerial(p_intÅr, 1, 7 * p_intUge - 3 - Weekday(DateSerial(p_intÅr, 0, 0), 3))
   
    '-- Add 6 if end of week
    If Not p_intStart Then
        gf_DATO_I_UGEN = CVDate(gf_DATO_I_UGEN) + 6
    End If
End Function

Private Sub cmdUdfør_Click()
  Dim UgeNummer
  Dim StartDato as Date, SlutDato as Date
 
  ....din kode
  UgeNummer = [noget????]

  StartDato = gf_DATO_I_UGEN(Year, UgeNummer, True)
  SlutDato = gf_DATO_I_UGEN(Year, UgeNummer, False)

  ....resten af din kode
 
End Sub

Mange tak for hjælpen.

Nu virker det takket være din hjælp....


Point til amerikaner