MS Excel

ahoj, mam v excelu casomiru a chtel bych, aby se zapisovaly i setiny. jak to udelat? mam to pres funkci Now - zacatek zavodu.
dekuji za rady

Sub Cas()
tCasZacatek = Now
tCasKonec = Now
tCas = tCasKonec - tCasZacatek
End Sub
Sub AktualizaceCasu()
UserForm1.Label10.Caption = Format(Now - tCasZacatek, "h:mm:ss")
NextTick = Now + TimeValue("00:00:01")
tCas = tCas + TimeValue("00:00:01")
Application.OnTime NextTick, "AktualizaceCasu"
End Sub

Zaslat odpověď >

Strana: 1 2 další »

MePExG(14.9.2016 12:02)#032782

Format "hh:mm:ss,00"citovat

marjankaj(14.9.2016 12:41)#032783

mepexg napsal/a:

Format "hh:mm:ss,00"

Keď už, tak
Format "hh:mm:ss,ss"
Ale nedáva mi to zmysel, keďže TimeValue je možné dávať iba v sekundách.citovat

rinma(14.9.2016 12:45)#032784

to jsem uz zkousel
ub Cas()
tCasZacatek = Now
tCasKonec = Now
tCas = tCasKonec - tCasZacatek
End Sub
Sub AktualizaceCasu()
UserForm1.Label10.Caption = Format(Now - tCasZacatek, "h:mm:ss,00")
NextTick = Now + TimeValue("00:00:01")
tCas = tCas + TimeValue("00:00:01")
Application.OnTime NextTick, "AktualizaceCasu"

ale neppocita mi to setiny, setiny jsou 00. pri ,ss to pise sekundy

tak jak to tady napsat, at to pise i setiny?a pocita je tocitovat

veny(14.9.2016 14:07)#032786

zkoušel jste formát s tečkou?

"hh:mm:ss.00"citovat

marjankaj(14.9.2016 14:14)#032788

No napadlo mi to takto
=TEXT(NOW();"hh:nn:ss")&TEXT(MOD(MOD(NOW();1) * 24 * 60* 60;1);",00")

Do VBA
TEXT=FORMAT
MOD si treba naprogramovať.citovat

eLCHa(14.9.2016 14:42)#032789

Now nemá setiny, takže je třeba použít Timer.
Asi nejlépeWorksheetFunction.Text(Timer / 60 / 60 / 24, "mm:ss.00")nebo lzeFormat(Now, "nn:ss,") & Format(Timer * 100 Mod 100, "00")citovat

vovka.h(14.9.2016 14:57)#032790

Funkce Format vytváří zásadně textový výstup. Pokud chci získat aktuální čas se setinami sekund jako číslo, mohu do buňky s formátem "h:mm:ss,00" vložit hodnotu
Selection = Timer/24/60/60
citovat

eLCHa(14.9.2016 15:04)#032791

Sub Cas()
Dim nStart As Single
nStart = Timer
MsgBox 1'tady se jako něco dělá - klikněte OK za jak dlouho budete chtít
Dim nEnd As Single
nEnd = Timer

Dim nTime As Single
nTime = nEnd - nStart

Debug.Print WorksheetFunction.Text(nTime / 60 / 60 / 24, "mm:ss.00")
End Subcitovat

marjankaj(14.9.2016 16:16)#032794

eLCHa napsal/a:

Now nemá setiny, takže je třeba použít Timer.

Funkcia NOW na liste má zlomky sekúnd.
V kóde VBA má iba sekundy.
To som nevedel.

citovat

eLCHa(14.9.2016 16:49)#032795

@marjankaj

Nikdo neví všechno. Já zase nevěděl, že fce listu má i desetiny. Mohlo mi to dojít, když je TEXT (HODNOTA.NA.TEXT) dokáže zobrazit a Format ne.

NOW ani není součástí WorksheetFunction, ale lze použít v Evaluate. Takže lze napsat Dim nTime As Single
nTime = Evaluate("=NOW()")
Debug.Print WorksheetFunction.Text(nTime, "m:ss.00")
Ono to v excelu bude možná takto i bezpečnější, protože Timer počítá sekundy od půlnoci a pokud bude kód spuštěn např. v 23:59:59 a ukončen v 0:00:01, může dojít k chybe (nStart > nEnd). Takto je to ošetřeno.citovat

Strana: 1 2 další »

Téma: funkce now setiny

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje