< návrat zpět

MS Excel

Téma: datum ve VBA rss

Zaslal/a karel50 19.1.2016 16:29

Zdravím, potřebuji poradit, jak z datumu dostanu měsíc ale slovně např. 1.3.2016 = březen. Month mi vrátí "3".

Zaslat odpověď >
marjankaj(19.1.2016 16:35)#029367
avatar
Vlastný formát "mmmm"
alebo =TEXT(A1;"mmmm")
=HODNOTA.NA.TEXT(A1;"mmmm")citovat
lubo(19.1.2016 18:05)#029376
avatar
Ve vba: format(now,"mmmm")citovat
karel50(19.1.2016 19:33)#029379
avatar
Děkuji, nakonec jsem na netu našel MonthName.citovat
vovka.h(19.1.2016 23:19)#029389
avatar
Jsem v lehkém šoku! MonthName(3) má u mne opravdu hodnotu "březen", a ne "march", jak jsem automaticky předpokládal. Nevzpomínám si, která jiná funkce VBA vrací rovnou lokalizovanou podobu. Snad jen vlastnost FormulaLocal, ale tam si o to Local musím říct...citovat
vovka.h(20.1.2016 10:31)#029398
avatar
Pro textové popisy kratších stabilních seznamů už léta používám funkci VBA, která se volá pořadovým číslem položky v seznamu. Pro názvy měsíců by ta funkce mohla vypadat následovně:
Function Mesice(Cislo As Long) As String
Dim Text As String, Seznam As Variant
Text = "Měsíce: Leden Únor Březen Duben Květen Červen Červenec Srpen Září Říjen Listopad Prosinec"
Seznam = Split(Text) ' Split má LBound=0, proto do jeho 1.položky dávám význam seznamu
Select Case Cislo
Case 1 To UBound(Seznam): Mesice = Seznam(Cislo)
Case Else: Mesice = "?????"
End Select
End Function
Podle tohoto mustru si každý může vyrobit obdobnou funkci pro svůj vlastní seznam.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje