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

• #42008 Delila_1 veterán karlkani #42006

  Új Válasz 2019-10-27 18:21:49 #42008

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz karlkani #42006 üzenetére

  Sub mm()
    Dim tol As Date, ig As Date
    tol = Date - Weekday(Date, 3)
    ig = tol + 4
    
    Debug.Print Format(tol, "mm.dd.") & "-" & Format(ig, "mm.dd.")
End Sub

• #42007 Fferi50 Topikgazda karlkani #42006

  Új Válasz 2019-10-27 18:21:47 #42007

  Ú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

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz karlkani #42006 üzenetére

  Szia!

  Például így:
  Range("A1").Formula="=TEXT((TODAY()-WEEKDAY(TODAY(),3)),""h.n."") & ""-"" & TEXT((TODAY()-WEEKDAY(TODAY(),16)),""h.n."")"
  
  Üdv.

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