Fra 8:00 - 8:25

tæller minutterne... Jeg kan godt sige dig nu at der er 25 min. Så skal de ikke tælles...

do\'h

jeg har lavet en knap og i den kanp en if, then, else-sætning.
jeg vil gerne have den til og gøre noget i det tidsrum!

En hurtig og måske ikke perfekt løsning, men kan muligvis give lidt inspiration, kunne være som følgende:

Option Explicit

Private Sub Timer1_Timer()

Dim mytime
Dim mytime1

mytime = #10:56:00 AM#
mytime1 = #10:56:15 AM#

Label1.Caption = Time()

If Label1.Caption = mytime Then
StartEtEllerAndet
End If
If Label1.Caption = mytime1 Then
StopEtEllerAndet
End If
End Sub

Function StartEtEllerAndet()

MsgBox \"Nu er klokken præcis 10:56:00\"

End Function


Function StopEtEllerAndet()

MsgBox \"Nu er klokken præcis 10:56:15\"

End Function

--> clausjacobsen
det du skriver er det samme som:

if lbltid = \"10:30:00\" then
msgbox \"nu er klokken: \" & lbltid
Else if lbltid = \"10:30:15\" then
msgbox \"nu er klokken: \" & lbltid
End if

Jeg gider ikke lige skrive alle 25 minut events op, så derfor bad jeg om hjælp!

Jeg er ikke sikker på at jeg har forstået spm rigtig

Private Sub Timer1_Timer()

  If Time > \"08:00:00\" And Time < \"08:25:00\" Then
    Me.Caption = Time
  End If

End Sub

Eller måske kun minuterne

Private Sub Timer1_Timer()

  If Time > \"08:00:00\" And Time < \"08:25:00\" Then
    Me.Caption = format(Time, \"NN\")
  End If

End Sub

--> infojens

Jeg tror det er rigtigt den kode du kommer med, jeg vil lige checke det men det bliver først efter et par uge jeg kan (måske) give dig point!

/jsc

--> infojens, dit script virker ikke rigtigt, der sker ikke noget, jeg ville have et label til og skrive: \"true\" indenfor dette tidsrum! og det sker ikke!

Hej jsc,

Jo, det virker se herunder.

Private Sub Timer1_Timer()
  Dim tilstand As Boolean
  tilstand = False

  If Time > \"22:03:00\" And Time < \"22:30:00\" Then
    tilstand = True
    Me.Caption = Time
  End If
Label1.Caption = tilstand
End Sub

Du kan jo også bruge denne her:

Private Sub Timer1_Timer()
  Dim tilstand As Boolean
  tilstand = False

  If Time > \"22:03:00\" And Time < \"22:30:00\" Then
    tilstand = True
  End If
Me.Caption = Time & \" \" & tilstand
Label1.Caption = tilstand
End Sub

ok - fedt nok! nu virker det sku\'

Godt! jeg tror i bliver nødtil og dele lige over!

tak for hjælpen!

/jsc

hvis i lige gider og svare!

Giv bare point til InfoJens, han er alligevel en gammel VB skolekammerat :)

Mvh
Claus

Hej Claus

Lang tid siden, håber det køre for dig !

Og ja hit med point jeg kan slet ikke fatte at mit svar er blevet afvist, det er jo smuk kode som spørger kunne lære meget af *GGG*

OK - Undskyld undskyld!

Jeg kunne bare ikke få din kode til og virke i første omgang!

Du får pointene!

/jsc