MS Excel

Téma: VBA - zaokrouhlení času v tlačítku

Zaslal/a Fantasyk 17.7.2021 12:24

Zdravím,
potřeboval bych pomoct se zaokrouhlením času v tlačítkách.

Např. Nyní je 12:21
a do tlačítka 1 potřebuji napsat -1 hodinu a tu zaokrouhlit dolů na 11:00
Tlačítko 2 : 11:30
Tlačítko 3 : 12:00
Tlačítko 4 : 12:30

prozatím tam přenáším a odečítam časy ale bez zaokrouhlení

Private Sub UserForm_Initialize()
Dim cas0 As String, cas1 As String, cas2 As String, cas3 As String, cas4 As String

cas0 = Now() - 1 - TimeSerial(0, 30, 0)
cas0 = Format(cas0, "hh:mm")
cas1 = Now() - TimeSerial(1, 0, 0)
cas1 = Format(cas1, "hh:mm")
cas2 = Format(Now, "hh:mm")
cas3 = Now() + TimeSerial(0, 30, 0)
cas3 = Format(cas3, "hh:mm")

Label1.Caption = "Aktuální čas: " & cas2
CommandButton1.Caption = cas0
CommandButton2.Caption = cas1
CommandButton3.Caption = cas2
CommandButton4.Caption = cas3

End Sub

Zaslat odpověď >

elninoslov(17.7.2021 21:01)#051011

???
Private Sub UserForm_Initialize()
Dim cas0 As Double, cas1 As Double

cas0 = Now()
cas1 = Int((cas0 * 24) - 1) / 24

Label1.Caption = "Aktuální čas: " & Format(cas0, "hh:mm")
CommandButton1.Caption = Format(cas1, "hh:mm")
CommandButton2.Caption = Format(cas1 + 1 / 48, "hh:mm")
CommandButton3.Caption = Format(cas1 + 1 / 24, "hh:mm")
CommandButton4.Caption = Format(cas1 + 1 / 12, "hh:mm")
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

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.