MS Excel

Téma: Datum

Zaslal/a simplynever 27.3.2020 22:54

Ahoj,

Mám dotaz ohledně kalendářních dat a jejich převedení z formátu KT/RR na formát DD.MM.RRRR.

Přiklad:
mam v bunce A1 udaj 13/20 (13 - představuje kalendářní týden, 20 - představuje rok) a potřebuji to převést na běžný formát data tzn aby se mi v bunce A2 zobrazil datum 23.03.2020 (den pondělí).

Děkuji moc za rady

Zaslat odpověď >

JoKe(28.3.2020 0:06)#046304

ve VBA

Function JK_Pondeli(Tyden, Rok) As Date
Dim TheDate As Date
TheDate = DateSerial(Rok - 1, 12, 31) + 7 * (Tyden - 1) - Weekday(TheDate, vbMonday) + 2
JK_Pondeli = DateSerial(Year(TheDate), Month(TheDate), Day(TheDate))
End Functioncitovat

simplynever(28.3.2020 1:01)#046305

Dekuji za radu, ale bohužel ještě jsem se nenaučil v makrech, můžu poprosit o řešení pomocí vzorce?

Děkujicitovat

JoKe(28.3.2020 10:28)#046307

=DATUM((2000+ZPRAVA(C6;2))-1; 12; 31) + 7 * (ZLEVA(C6;NAJÍT("/";C6)-1)-1) - DENTÝDNE(0;2)+5

Edit:
záleží, jak jsou týdny číslovány
jestli 1. týden je týden, který obsahuje
a) 1. ledna - zde u některých roků může být i 54 týdnů
b) první lednový čtvrtek (ISO)citovat

Anonym(30.3.2020 14:22)#046314

Děkuji fungujecitovat

Lugr(31.3.2020 20:22)#046315

Já používá tohle. (viz příloha)

Také doporučuji první uvádět rok a to kvůli seřazení dat pokud máte data z více roků.

Snad Vám to bude k něčemu.

Příloha: xlsx

46315_datum.xlsx (10kB, staženo 22x)

citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.