< návrat zpět

MS Excel


Téma: VBA výpočet času rss

Zaslal/a 19.3.2022 22:18

LugrDobrý den,

zasekl jsem se u tvorby formuláře. V Excel používám na výpočet délky směny tento vzorec: =MOD(B1-A1;1)*24.

Ale ve formuláři si s tím nevím rady.

Pomohli by jste mi s tím?

Příloha: zip52319_vba-cas.zip (19kB, staženo 9x)
Zaslat odpověď >

#052324
elninoslov
Použite výpočet inak. Mod vo VBA nie je to isté ako MOD v Exceli. Môžete použiť aj vyremované vypínanie Events
'Dim DisableEvent As Boolean

Private Sub TextBox1_Change()
'If DisableEvent Then Exit Sub
Zmena
End Sub

Private Sub TextBox2_Change()
'If DisableEvent Then Exit Sub
Zmena
End Sub

Private Sub TextBox3_Change()
'If DisableEvent Then Exit Sub
Zmena
End Sub

Sub Zmena()
Dim zac As Date, kon As Date

On Error Resume Next
zac = TimeValue(Me.TextBox1.Value)
kon = TimeValue(Me.TextBox2.Value)

Me.TextBox4.Value = MODX(kon - zac, 1) * 24 - (Me.TextBox3.Value / 60)
If Err.Number <> 0 Then Me.TextBox4.Text = ""
End Sub

Private Sub UserForm_Initialize()
'DisableEvent = True
Me.TextBox1.Value = "22:00"
Me.TextBox2.Value = "06:00"
'DisableEvent = False
Me.TextBox3.Value = "30"
End Sub

Function MODX(Cislo As Double, Del As Integer) As Double
MODX = Cislo - Del * Int(Cislo / Del)
End Function
Příloha: zip52324_52319_vba-cas.zip (18kB, staženo 9x)
citovat
#052325
Lugr
Moc děkuji. Tak to jsem nečekal, že to bude až tak složitý. 4citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09