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

• #19899 Mutt senior tag bandus #19898

  Új Válasz 2013-12-31 16:01:41 #19899

  Ú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

  

  Mutt

  senior tag

  válasz bandus #19898 üzenetére

  Hello,

  Használd ezt a függvényt, amely a hét kezdetét adja vissza (ha nem hétfővel akarod kezdeni akkor a vbMonday-t módosítsd a kívántra).

  Function HetiDatum(ev As Long, het As Long) As Date
  
  'előállítjuk a megadott év január 1-ét, majd korrigáljuk a legközelebbi hétfőre és hozzádjuk az eltelt napokat
  HetiDatum = DateSerial(ev, 1, 1) - (Weekday(DateSerial(ev, 1, 1), vbMonday) - 1) + (het - 1) * 7
  
  End Function

  A többi napot megkapod ha 1-et, 2-öt stb adsz hozzá.

  üdv

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