Datum a čas - jak nastavit formát - Excel VBA

Úvodem

Potřebujete-li nastavit v buňce formát zobrazované hodnoty (datum a čas). Jaké jsou možnosti a jak to prakticky provést je popsáno v tomto článku. K dispozici tyto příklady:

• Aktuální datum + formát
• Nastavení formátu
• Výpočet počtů dnů
• Vytvořit a naformatovat datum DateSerial
• Ke stažení - zdarma a aktualizovaný ;)
• Další souvisejíci články - aneb jak dále využít označenou oblast, co s ní dělat

Aktuální datum + formát

Vložení do příslušné buňky aktuální datum a nastavení formátu jakým se bude datum a čas zobrazovat.

Range("A9").Value = Format$(Now, "yyyy/mm/dd hh:nn:ss")

Nastavení formátu

Nastavení formátu den / měsíc / rok

Range("A5").NumberFormat = "dd/mmm/yyyy" ' nebo trochu jiný formát rok měsíc den Range("A5").NumberFormat = "yyy/mm/ddd"

Výpočet počtů dnů

Vrátí počet dní(ů) hodin minut od pondělí tohoto týdne

Range("A13").Value = Format$(Now - (Date - Weekday(Date, vbMonday)), "\D\ni:d, \Ho\di\n: hh, \Mi\nut: nn")

Další příklad počet dnů od, v ukázce od 1. ledna 2011

Dim datDatum As Date datDatum = DateSerial(2011, 1, 1) Range("A17").Value = (Now - dtDatum) Range("A17").NumberFormat = "###"

Vytvořit a naformatovat datum DateSerial

Nastavit formát datumu, který je vytvořen pomocí DateSerial.

Range("A31").Value = Format$(DateSerial(Range("C31").Value, Range("D31").Value, Range("E31").Value), "yyyy/mmmm/ddd") Range("A32").Value = Format$(DateSerial(Range("C31").Value, Range("D31").Value, Range("E31").Value), "yyyy/mm/d")

Ke stažení

Ukázkový soubor datum a čas formátování - ukázka ve VBA MS Excelu - ke stažení zdarma. Obsahuje více ukázek. Poznámka: Soubor využívá makra.

Další související články:

Pokud už máte buňku (oblast) označenou můžete s ními dále pracovat například

• RESIZE, OFFSET - zvětšit posounout oblast
• Zapiš údaj do buňky (oblasti)
• Přečti údaj z buňky (oblasti)
• Formátování buněk (oblasti)
• ...

Závěrem

Máte nějaký nápad na zajimavý formát datumu a času? Můžete se pochlubit v komentářích.

Článek byl aktualizován: 19.09.2020 11:06

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře