MS Excel

Téma: Podmínka IF TIME

Zaslal/a Hesl0 12.5.2018 23:53

Zdravím,

lámu si hlavu s problémem nastavení podmínek viz. níže

:

Funkce: Pokud je aktuální čas v definovaném intervalu mezi limitem A a limitem B pak zobrazit "ano" v textovém okně na slidu prezentace. Pokud je mimo interval zobrazit "ne".

Kód:

Sub Test()

Dim time As Date
Dim limit_A As Date
Dim limit_B As Date

time = Now()

limit_A = "23:50"
limit_B = "23:30"

If limit_A > time And time > limit_B Then
ActivePresentation.Slides(1).Shapes("1").TextFrame.TextRange.Text = Format("Ano")

Else
ActivePresentation.Slides(1).Shapes("1").TextFrame.TextRange.Text = Format("Ne")

End If

End Sub

Víte někdo jak na to?

Zaslat odpověď >

elninoslov(13.5.2018 2:21)#040356

Pr.
Sub Test()
Dim time As Date
Dim limit_A As Date
Dim limit_B As Date

time = Now()

limit_A = Int(time) + TimeValue("02:50")
limit_B = Int(time) + TimeValue("01:30")

ActivePresentation.Slides(1).Shapes("1").TextFrame.TextRange.Text = IIf(limit_A > time And time > limit_B, "Ano", "Ne")

End Sub
Pohybujete sa na prelome dní, treba počítať aj s dátumom.citovat

Honza53(19.5.2018 20:35)#040417

I to je zoufale složité.
1. Co jde spočítat jako konstanta, nemá se počítat za chodu programu. Celý den má 24*60 = 1440 minut, takže 23:50 je 1430 a 23:30 je 1410 minut; jejich numerické hodnoty proto jsou 1430/1440 resp. 1410/1440.
2. Nikoho nezajímá Now, potřebuješ Time.

Const a = 1410/1440, b = 1430/1440 'automaticky double
Dim t# 'double!!!
t = Time
ActivePresentation...Text = IIf(t > a and t < b, "Ano", "Ne")

Toť vše.citovat

Téma: Podmínka IF TIME

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje