Příspěvky uživatele


< návrat zpět

Podmínka IF TIME (12.5.2018 23:53)

Zdravím,

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

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?


Uživatelské menu

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

Menu

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.

On-line nástroje