MS Excel

Ahoj všichni,
mám jeden vlastně dva zákeřné dotazy
1. Vytvořil jsem si formulář v němž se mi načítal rozdíl dvou dat vložených do textboxů a ten rozdíl se rozdělil na roky a měsíce.
viz níže
---------------------------------------
Dim rok, mesic As Variant
rok = DateDiff("yyyy", datum1, datum2)
mesic = DateDiff("m", datum1, datum2)
textbox.rok = rok
textbox.mesic = mesic - (rok * 12)
----------------------------------------
Vše báječně fungovalo v excelu 2007, teď mám excel 2013 a nefunguje. zkoušel jsem i excel 2010 a taky nic. Nemáte někdo tušení kde je problém?
2. Mám Windows 8 64bit a nezobrazují se mi v excelu knihovny MSCOMCTL.OCX ani MSCOMCT2.OCX. Zaregistrovat se mi je podařilo, ale do excelu se nenačtou.
Prosím o radu a předem děkuji

Zaslat odpověď >

AL(5.12.2013 0:19)#016662

ad 1.
Problém bude asi v tom, že v tých textboxoch zrejme nemáš dátumy, ale nejaké blbiny, ťažko povedať, bez toho, aby som ten formulár videl. Rozhodne ale funkcia DateDiff v 2010 funguje.

Do buniek A1 a A2 som napísal dátum a kódik dáva správny výsledok:Sub pom()
Debug.Print "rokov: " & DateDiff("YYYY", [a1], [a2])
Debug.Print "mesiacov: " & DateDiff("m", [a1], [a2]) - DateDiff("YYYY", [a1], [a2]) * 12
End Subcitovat

husita(5.12.2013 9:06)#016667

Ten formulář vypadá následovně. Dopsal jsem tam část tvého kódu
DateDiff("m", [a1], [a2]) - DateDiff("YYYY", [a1], [a2]) * 12
na 2013 jsem to ještě nezkoušel, uvidím odpoledne. zatím děkuji za ochotu.
Apropo proč se mi nenačítají objekty z knihovny MSCOMCTL.OCX do toolboxu asi nevíš, viď?

Příloha: zip

16667_pokus.zip (20kB, staženo 17x)

citovat

AL(5.12.2013 9:49)#016669

Pomenovavat prvky formulara ako C11, D1 apod. mi nepride uplne stastne, kazdopadne, mne sa javi, ze tie roky a mesiace to v tom vzore, ktory si poslal, pocita (v excel 2010).

S tymi kniznicami neporadim, tam bude musiet niekto iny.citovat

husita(5.12.2013 11:49)#016672

s tím pojmenováním prvků formuláře máš asi pravdu, mám to pojmenováno podle oddílů a položky v něm, aby se mi snadněji pracovalo s uložením a načítáním dat z a do formuláře. Mě totiž vyděsilo, že mi to v excelu 2007 počítalo naprosto bez problémů a pak jsem naistaloval 2013 a přestalo to fungovat. V každém případě ještě jednou děkuji. Až přijdu odpoledne domů, vyzkouším to na těch 2013citovat

husita(5.12.2013 16:16)#016674

Tak jsem to vyzkoušel a nefunguje mi to, už mi došly nápady, kde ještě by mohla být chyba :-(citovat

AL(5.12.2013 17:39)#016675

ti hovorím, že v 2010 to funguje, som si otvoril i ten tvoj formular a roky a dni to pocita.
tu pisu, ze pre 2013 ohladom uvedenej funkcie to same, je v 2013 k dispoziciihttp://www.techonthenet.com/excel/formulas/datediff.phpto sice overit nedokazem, pac 2013 nemam, ale pmn nezmysly na tom webe nepisu..citovat

husita(5.12.2013 18:51)#016677

Laboroval jsem s datovými typy a zjistil jsem, že mu, nevím proč, vadí český formát data t.j. 1.1.1900. Změnil jsem ho na 01/01/1900 a to zafungovalo. Takže ještě jednou díky za Tvou podporu a Tvůj čascitovat

husita(18.1.2014 10:35)#017350

Nechci nikomu cpát své rady, ale kdyby tento problém náhodou někdo řešil a nevěděl si rady, vyřešil jsem to nakonec takto:

Private Sub UserForm_Initialize()
Dim rok, mesic As Long
'použil jsem operátor "\" pro dělení s celočíselným výsledkem
rok = DateDiff("m", od, datum) \ 12

'a operátor (funkci)Mod pro zbytek po dělení
mesic = DateDiff("m", od, datum) Mod 12

'výsledkem je v mém případě téměř přesné určení odpracovaných roků a měsíců
roku = rok
mesicu = mesic
End Subcitovat

Téma: DateDiff a Excel 2013

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Makro smyčka

Makro smyčka

Čas od do

Čas od do

Čas od do

Čas od do

Čas od do