Datoberegning (dato på første og sidste dag i den aktuelle uge)

Første dag:

Function FirstOfWeek(Optional dteDate As Date) As Date
If CLng(dit datofelt) = 0 Then
dit datofelt = Date
End If
FirstOfWeek = dit datofelt - Weekday(dteDate) + 1
End Function

Function LastOfWeek(Optional dteDate As Date) As Date
If CLng(dit dato felt) = 0 Then
dit datofelt = Date
End If
LastOfWeek = dit datofelt - Weekday(dteDate) + 7
End Function

Begge funktioner forudsætter, at Søndag er første dag i ugen

Hej mugs, tak for indlæggende, men jeg har problemer med at få det til at virke, først melder den fejl på værdien Null, hvis jeg så ændre lidt på koden skriver den blot dags dato, og ikke datoen på den første dag i ugen. Jeg mener at den første dag i ugen beregnes fra mandag og ikke søndag

Du kan jo altid stave dig igennem!~)

Returnér ugedagen og så lav en simpel vb, a'la IF ReturFeltEllerStrengEllerAndet = onsdag THEN
FørsteDag = Dato-2 osv..

Jeg håber du forstår!~)

Okay, tak so far, det er sengetid, jeg kikker på det igen i morgen sov godt til alle

Hilsen Anders.

Jeg ved godt jeg ikke er den store programmør, men det her virker!~)

ps. dansk udgave af access, måske skal du lave den engelske eller hvordan og hvorledes ved jeg ikke... jeg har ikke mulighed for at teste på sprog lige nu!~)

If Format(Me.Dato, "ddd", vbMonday) = "ma" Then
Me.ForsteDag = Me.Dato
Me.SidsteDag = Me.Dato + 6
End If
If Format(Me.Dato, "ddd", vbMonday) = "ti" Then
Me.ForsteDag = Me.Dato - 1
Me.SidsteDag = Me.Dato + 5
End If
If Format(Me.Dato, "ddd", vbMonday) = "on" Then
Me.ForsteDag = Me.Dato - 2
Me.SidsteDag = Me.Dato + 4
End If
If Format(Me.Dato, "ddd", vbMonday) = "to" Then
Me.ForsteDag = Me.Dato - 3
Me.SidsteDag = Me.Dato + 3
End If
If Format(Me.Dato, "ddd", vbMonday) = "fr" Then
Me.ForsteDag = Me.Dato - 4
Me.SidsteDag = Me.Dato + 2
End If
If Format(Me.Dato, "ddd", vbMonday) = "lø" Then
Me.ForsteDag = Me.Dato - 5
Me.SidsteDag = Me.Dato + 1
End If
If Format(Me.Dato, "ddd", vbMonday) = "sø" Then
Me.ForsteDag = Me.Dato - 6
Me.SidsteDag = Me.Dato
End If

Private Sub cmd1_Click()
If Format(Date, "ddd", vbMonday) = "ma" Then
Me.tx1Jobdato = Date
Me.tx2Jobdato = Date + 6
End If
If Format(Date, "ddd", vbMonday) = "ti" Then
Me.tx1Jobdato = Date - 1
Me.tx2Jobdato = Date + 5
End If
If Format(Date, "ddd", vbMonday) = "on" Then
Me.tx1Jobdato = Date - 2
Me.tx2Jobdato = Date + 4
End If
If Format(Date, "ddd", vbMonday) = "to" Then
Me.tx1Jobdato = Date - 3
Me.tx2Jobdato = Date + 3
End If
If Format(Date, "ddd", vbMonday) = "fr" Then
Me.tx1Jobdato = Date - 4
Me.tx2Jobdato = Date + 2
End If
If Format(Date, "ddd", vbMonday) = "lø" Then
Me.tx1Jobdato = Date - 5
Me.tx2Jobdato = Date + 1
End If
If Format(Date, "ddd", vbMonday) = "sø" Then
Me.tx1Jobdato = Date - 6
Me.tx2Jobdato = Date
End If
End Sub

Private Sub cmd2_Click()
If Format(Date, "ddd", vbMonday) = "ma" Then
Me.tx1Jobdato = Date + 7
Me.tx2Jobdato = Date + 13
End If
If Format(Date, "ddd", vbMonday) = "ti" Then
Me.tx1Jobdato = Date + 6
Me.tx2Jobdato = Date + 12
End If
If Format(Date, "ddd", vbMonday) = "on" Then
Me.tx1Jobdato = Date + 5
Me.tx2Jobdato = Date + 11
End If
If Format(Date, "ddd", vbMonday) = "to" Then
Me.tx1Jobdato = Date + 4
Me.tx2Jobdato = Date + 10
End If
If Format(Date, "ddd", vbMonday) = "fr" Then
Me.tx1Jobdato = Date + 3
Me.tx2Jobdato = Date + 9
End If
If Format(Date, "ddd", vbMonday) = "lø" Then
Me.tx1Jobdato = Date + 2
Me.tx2Jobdato = Date + 8
End If
If Format(Date, "ddd", vbMonday) = "sø" Then
Me.tx1Jobdato = Date + 1
Me.tx2Jobdato = Date + 7
End If
End Sub

Private Sub cmd1_Click()
tx1JobDato = DateSerial(Year(Date), Month(Date), Day(Date) - (Weekday(Date) - 2))
tx2JobDato = tx1JobDato + 6
End Sub

Private Sub cmd2_Click()
tx1JobDato = DateSerial(Year(Date), Month(Date), (Day(Date) + 7) - (Weekday(Date) - 2))
tx2JobDato = tx1JobDato + 6
End Sub

det er vist sådan den skal være

Private Sub cmd1_Click()
tx1JobDato = Date - (Weekday(Date) - 2)
tx2JobDato = tx1JobDato + 6
End Sub

Private Sub cmd2_Click()
tx1JobDato = (Date + 7) - (Weekday(Date) - 2)
tx2JobDato = tx1JobDato + 6
End Sub

kabbak>lækkert!~)

kabbak: har testet dine indlæg, det virker perfekt, så point går til kabbak, tusind for hjælpen, og tak for de andre indlæg.

NB. der kan blive problemer, hvis der indtastes om søndagen, skal jeg lave koden om til at tage højde for det også ??.

Hej kabbak, ja tak gerne, du siger bare til hvis du skal have flere points :o)

I Ugens dage i VBA er i US Uger.

Så deres første dag er søndag, hvor vores er mandag.

Det betyder at om søndagen retunerer Weekday(Date)  1, og det dur jo ikke at trække 2 fra den, det giver jo -1, derfor ændring i koden.

Private Sub cmd1_Click()
    Dim X As Integer
    If Weekday(Date) = 1 Then
        X = 6
    Else
        X = Weekday(Date) - 2
    End If
   
    tx1JobDato = Date - X
    tx2JobDato = tx1JobDato + 6
End Sub

Private Sub cmd2_Click()
    Dim X As Integer
    If Weekday(Date) = 1 Then
        X = 6
    Else
        X = Weekday(Date) - 2
    End If
   
    tx1JobDato = (Date + 7) - X
    tx2JobDato = tx1JobDato + 6
End Sub

08/04-2006 11:36:15 testet, det virker perfekt :o), tusind tak for hjælpen

Hilsen Anders.