Új hozzászólás Aktív témák

• Zalanius tag

  #3089

  #3088 Lokids

  2019-02-13 13:33:16

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Zalanius

  tag

  #3088 Lokids

  #3088 Lokids

  Ezt kifejtenéd kicsit bővebben? Mert én jelenleg ilyesmin gondolkodom, de ez nem túl szép megoldás:

  If (Weekday(Now(), vbMonday) = 1) Then
  else if = 2 then dateadd (valamennyi)
  else if = 3 stb...

  De mind az 5 napra külön elseif-et írni nem tűnik valami jó megoldásnak.

  Szerintem elég egy If, ha a pénteket vesszük bázisnak, és jól értelmeztem az eddigieket, azaz február 9-15. között kell március 1-jét kihozni. Ha az az egy If nincs, akkor is csak péntekenként ugrana +1 hetet. Excel-VBA-ban valahogy így:

  Dim fri%, add%, d1 As Date, d2 As Date
fri = Weekday(Now, vbFriday)
add = 14
If fri <> 1 Then add = add + 8 - fri
d1 = Now
d2 = DateAdd("d", add, d1)
MsgBox d2

Új hozzászólás Aktív témák