AL napsal/a:
za moment sem nejaké funkčné riešenie asi dám páč sa nemôžem dívať na to utrpenie :)
tak ok :) ja sa zatiaľ budem zabávaťcitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Upravda datum/čas
tak ok :) ja sa zatiaľ budem zabávaťcitovat
super:)
ja som sa pohrala s funkciou DOSADIT a v takejto forme som dostala požadovaný formát (bez zaokruhlovania dolu flooru, roundownu)
DOPLNENIE-OPRAVA.. . česká verzia... úprava podľa marjankaja
DOSADIT(DOSADIT(DOSADIT(ZLEVA(A1;NAJÍT(".";A1)-1);"-";"");" ";"");":";"")citovat
DOPLNENIE, OPRAVA: INAK povedané môj excel si myslí, že pravdepodobne nejde o matematický výraz,nakoľko na to nefungovala funkcia rok (čas atď...)citovat
No už ťa vidím ako 700000 krát vypisuješ ten vzoreček. Myslíš, že tie číselká za desatinnou bodkou budú stále rovnaké?
citovat
jasné, som si neuvedomila... doplnené, upravené OK
jasné, nevidím pôvodný výraz OK
@AL použila slovo pravdepododobne... to znamená že to nie je 100%
UDF funguje..., zadávateľ otázky môže byť spokojný
len malá poznámka pre neznalých ako ja
UDF-uživateľom definovaná funkcia
vložiť ako klasickú funkciu a vybrať kategóriu vlastnácitovat
MS Excel
Téma: Upravda datum/čas 
Zaslal/a 15.12.2016 14:46
Ahoj, měl bych takový dotaz, potřebuji upravit 2015-10-26 12:50:20.049659 na formát 20151026125020. Napadá Vás, jak to šikovně upravit? Bude se jednat o cca 700tis záznamů.
Díky
tak ok :) ja sa zatiaľ budem zabávaťcitovat
Tak teda VBA (UDF), keď to musí byť. Nie je to nič svetoborného z pohľadu rýchlosti, ale požadovaný účel splní:
Function GetNumber(arg As String) As Double
arg = Left(arg, WorksheetFunction.Find(".", arg) - 1)
arg = WorksheetFunction.Substitute(arg, "-", "")
arg = WorksheetFunction.Substitute(arg, " ", "")
arg = WorksheetFunction.Substitute(arg, ":", "")
GetNumber = CDbl(arg)
End Functioncitovat
Function GetNumber(arg As String) As Double
arg = Left(arg, WorksheetFunction.Find(".", arg) - 1)
arg = WorksheetFunction.Substitute(arg, "-", "")
arg = WorksheetFunction.Substitute(arg, " ", "")
arg = WorksheetFunction.Substitute(arg, ":", "")
GetNumber = CDbl(arg)
End Functioncitovat
AL napsal/a:
Tak teda VBA (UDF), keď to musí byť. Nie je to nič svetoborného z pohľadu rýchlosti, ale požadovaný účel splní:
End Function
super:)
ja som sa pohrala s funkciou DOSADIT a v takejto forme som dostala požadovaný formát (bez zaokruhlovania dolu flooru, roundownu)
DOPLNENIE-OPRAVA.. . česká verzia... úprava podľa marjankaja
DOSADIT(DOSADIT(DOSADIT(ZLEVA(A1;NAJÍT(".";A1)-1);"-";"");" ";"");":";"")citovat
No rounddown nefunguje, lebo "." je desatinná iba v original anglickom exceli. V našom je oddeľovačom desatinných miest ","
Netuším (ako AL správne podotkol) v akom formáte je ten výraz. Keby zadávateľ priložil súbor v exceli(aj keď je to naozaj triviálnosť), tak by sme zbytočne nešpekulovali.
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(LEFT(A1;FIND(".";A1)-1);"-";"");" ";"");":";"")
Netuším (ako AL správne podotkol) v akom formáte je ten výraz. Keby zadávateľ priložil súbor v exceli(aj keď je to naozaj triviálnosť), tak by sme zbytočne nešpekulovali.
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(LEFT(A1;FIND(".";A1)-1);"-";"");" ";"");":";"")
Příloha: 
33859_textdat.zip (8kB, staženo 24x)
citovat33859_textdat.zip (8kB, staženo 24x)marjankaj napsal/a:
No rounddown nefunguje, lebo "." je desatinná iba v original anglickom exceli. V našom je oddeľovačom desatinných miest ","
Netuším (ako AL správne podotkol) v akom formáte je ten výraz. Keby zadávateľ priložil súbor v exceli(aj keď je to naozaj triviálnosť), tak by sme zbytočne nešpekulovali.
DOPLNENIE, OPRAVA: INAK povedané môj excel si myslí, že pravdepodobne nejde o matematický výraz,nakoľko na to nefungovala funkcia rok (čas atď...)citovat
Kabaka, panebože, ako môžeš použiť v tej svojej funkcii ".049659" ??? Skutočne ti nedochádza, že to číslo môže byť vždy iné?
Tu máš ešte jednu UDF - malá modifikácia tej predošlej:
Function GetNumber(arg As String) As Double
Dim i As Byte, myArr
myArr = Array("-", " ", ":")
arg = Left(arg, WorksheetFunction.Find(".", arg) - 1)
For i = LBound(myArr) To UBound(myArr)
arg = WorksheetFunction.Substitute(arg, myArr(i), "")
Next i
GetNumber = CDbl(arg)
End Functioncitovat
Tu máš ešte jednu UDF - malá modifikácia tej predošlej:
Function GetNumber(arg As String) As Double
Dim i As Byte, myArr
myArr = Array("-", " ", ":")
arg = Left(arg, WorksheetFunction.Find(".", arg) - 1)
For i = LBound(myArr) To UBound(myArr)
arg = WorksheetFunction.Substitute(arg, myArr(i), "")
Next i
GetNumber = CDbl(arg)
End Functioncitovat
kabaka napsal/a:
=DOSADIT(DOSADIT(DOSADIT(DOSADIT(A1;"-";"");" ";"");":";"");".049659";"")
No už ťa vidím ako 700000 krát vypisuješ ten vzoreček. Myslíš, že tie číselká za desatinnou bodkou budú stále rovnaké?
citovatKabaka: viac ako pravdepodobné, že nejde o matematický výraz, nakoľko na to nefungovala funkcia rok (čas atď...)
Ďalšia perla. Toto predsa nemôžeš vedieť, pokiaľ nevidíš, ako je to v tom Exceli zapísané. Ty si skutočne vtipná.citovat
Ďalšia perla. Toto predsa nemôžeš vedieť, pokiaľ nevidíš, ako je to v tom Exceli zapísané. Ty si skutočne vtipná.citovat
AL napsal/a:
Kabaka, panebože, ako môžeš použiť v tej svojej funkcii ".049659" ??? Skutočne ti nedochádza, že to číslo môže byť vždy iné?
jasné, som si neuvedomila... doplnené, upravené OK
jasné, nevidím pôvodný výraz OK
@AL použila slovo pravdepododobne... to znamená že to nie je 100%
UDF funguje..., zadávateľ otázky môže byť spokojný
len malá poznámka pre neznalých ako ja
UDF-uživateľom definovaná funkcia
vložiť ako klasickú funkciu a vybrať kategóriu vlastnácitovat
Kabaka, ja viem veľmi dobre, čo znamená pravdepodobné, i čo znamená viac než pravdepodobné. Prepáč, ale nič to nemení na tom, že tvoje výrok je nezmysel.
Ešte môj názor k Lašákovi - žije z toho, že užívatelia neovládajú angličtinu. Na jeho stránkach som našiel pár vecí, o ktorých mám dobrý dôvod domnievať sa, že sú plagiáty, opajcované zo stránok skutočných machrov, ako Jon Peltier, Debra Dalgleish atď. Myslím si, že tie preklady funkcií si tiež "vypožičal", a to od Petra Pecháčka. Ja žiadnym obdivom k plagiátorom netrpím. V dobe, kedy som tie stránky navštívil, tam nebol žiadny údaj o tom, kým sa "inšpiroval". Asi toľko k Lašákovi.citovat
Ešte môj názor k Lašákovi - žije z toho, že užívatelia neovládajú angličtinu. Na jeho stránkach som našiel pár vecí, o ktorých mám dobrý dôvod domnievať sa, že sú plagiáty, opajcované zo stránok skutočných machrov, ako Jon Peltier, Debra Dalgleish atď. Myslím si, že tie preklady funkcií si tiež "vypožičal", a to od Petra Pecháčka. Ja žiadnym obdivom k plagiátorom netrpím. V dobe, kedy som tie stránky navštívil, tam nebol žiadny údaj o tom, kým sa "inšpiroval". Asi toľko k Lašákovi.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články