Datum von nächstem freitag

[Blubbfisch]

Weiß jemand wie ich mit VB das Datum vom folgenden Freitag berechnen lassen kann?

 

[noreya]

Hallo Blubbfisch,
versuche es mal mit der Weekday-Funktion:

Weekday(Date)

Freitag hat den festen Wert 6. Mit der Differenz zu dem Weekday von heute (Date) findest Du heraus, wie viele Tage es noch bis Freitag sind. Die musst Du dann nur noch zu dem aktuellen Tag addieren.

Viel Erfolg
noreya

 

[Orakel]

Hi,

in Ergänzung zu noreya:

Nimm ne Form, pack ein Textfeld drauf (Text=0) und ein Commandbutton. Dann folgender Code

Option Explicit

Private Sub Command1_Click()
    Dim dDatum          As Date
    Dim nValue          As Integer
    Dim nTarget         As Integer

    nTarget = vbFriday
    dDatum = Date + CInt(Text1.Text)
    nValue = nTarget - Weekday(dDatum)
    nValue = IIf(nValue <= 0, nValue + 7, nValue)
    dDatum = dDatum + nValue
    MsgBox "Der nächste " & Format$(dDatum, "DDDD") & " ist " & dDatum
End Sub

Jetzt kannst Du ein bischen damit spielen

Gruß
Das Orakel

 

[Blubbfisch]

danke für eure hilfe