< návrat zpět

MS Excel


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

Zaslal/a 17.7.2021 12:24

FantasykZdraví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í 7

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ěď >

#051011
elninoslov
???
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 Sub
citovat

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

Ověření datumu TextBox1.Text

elninoslov • 18.10. 20:15

Auto mazanie emailov

elninoslov • 18.10. 20:01

Ověření datumu TextBox1.Text

Scraper • 18.10. 18:25

Auto mazanie emailov

Pavol1 • 18.10. 17:10

zdroj dat ve VBA

elninoslov • 18.10. 17:08

zdroj dat ve VBA

lubo • 18.10. 15:40

EXCEL VBA vyhledání buňky

lubo • 18.10. 15:39