dato støre end men også bestemt tid

hvad med function datediff ??

Prøv med CDate("06-10-03 19:00:00")

Og det var et svar og du skal lige have denne med:
CDate(Format$(Now, "dd-mm-yy hh:mm:ss"))

Bertie  det virker fint men det jeg mente var at klokken altid skal være over 19.00 alt så klokken skal altid være over 19.00 også skal datoen passe
??? !!!

Så er du nødt til at dele den op i 2 en på datoen som du har og så en på tiden:
If CDate(Format$(Now, "hh:mm:ss")) >= CDate("19:00:00") Then
  gør noget
End If

Jeg ved ikke om det holder, jeg har ikke lige adgang til VB nu så det er rene gæt lige nu :-)

CDate("19:00:00")  skal være
CDate(Format("19:00:00","hh:mm:ss"))

Try
If CDate(Format$(Now, "dd-mm-yy hh:mm:ss")) >= CDate("06-10-03 08:00:00")

But I havent tested it, just a wild guess :o)

Dim lret As Long
'funktionen Datediff her den stilt til diff i sekunder
'return er diff i sekunder

'dette eksl. vil give lRet = 0
lret = DateDiff("s", CDate("06-10-03 19:00:00"), CDate("06-10-03 19:00:00"))

'dette eksl. vil give lRet = 1
lret = DateDiff("s", CDate("06-10-03 19:00:00"), CDate("06-10-03 19:00:01"))


'dette eksl. vil give lRet = -1
lret = DateDiff("s", CDate("06-10-03 19:00:00"), CDate("06-10-03 18:59:59"))

hvis Return værdien er over 0 vil klokken være efter 19:00

øø lokespas kan du ikke brøve at sætte det op for mig, det er en label jeg klikker på, det vil ikke rigtig funger for mig MsgBox skrive ikke nu lige meget hvad

det kan jeg godt..

Private Sub Label1_Click()
   
    If DateDiff("s", CDate(Date & " 19:00:00"), Now) > 0 Then
    '    Form2.Show
        MsgBox "KLokken er over syv"
    Else
        MsgBox "KLokken er ikke over syv "
    End If

End Sub


god week-end !

funker det !!!

Ja det virker som det skal

Tak for point.