---

hej NG
Jeg laver dato støre den og lig med sådan
If CDate(Format$(Now, "dd-mm-yy")) >= CDate("06-10-03") Then Form2.Show Else
MsgBox "Ikke
men hvad vis jeg også skal have flette ind at den først skal tjekke om
klokke er over 19.00
vis ikke den er 19.00 MsgBox klokken er ikke 19.00 vis klokken er 19.00
skal den gå vidre og tjekke om datoen er den 06-10-03 vis ikke MsgBox
Ikke...... men vis datoen passer skal den åbne Form2
altså selv om datoen passser må den ikke åbne form2 vis ikke klokken er over
19.00
håber jeg har forklaret mig godt nok..... Hvordan laver jeg den??
mvh HC


---
Outgoing mail is certified Virus Free.

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.524 / Virus Database: 321 - Release Date: 06-10-2003

---

"Henrik C" <cichosz@[nospam]tdcadsl.dk> skrev i en meddelelse
news:3f864ebc$0$54855$edfadb0f@dread11.news.tele.dk...
> hej NG
> Jeg laver dato støre den og lig med sådan
> If CDate(Format$(Now, "dd-mm-yy")) >= CDate("06-10-03") Then Form2.Show
Else
> MsgBox "Ikke
> men hvad vis jeg også skal have flette ind at den først skal tjekke om
> klokke er over 19.00
> vis ikke den er 19.00 MsgBox klokken er ikke 19.00 vis klokken er 19.00
> skal den gå vidre og tjekke om datoen er den 06-10-03 vis ikke MsgBox
> Ikke...... men vis datoen passer skal den åbne Form2


If Hour(Now) = 19 then
...
Else
...
End If


--
mvh
Jens Vestergaard (mailadr i dette indlæg er ikke gyldig!)
www.railsoft.dk
Døgnets jernbanenyheder: www.railsoft.dk/medier.asp

---

Eventuelt

If Time >= 19 / 24 Then

Else

End If

--
HTH. Beste hilsen Harald
Followup to newsgroup only please

"Henrik C" <cichosz@[nospam]tdcadsl.dk> skrev i melding
news:3f864ebc$0$54855$edfadb0f@dread11.news.tele.dk...
> hej NG
> Jeg laver dato støre den og lig med sådan
> If CDate(Format$(Now, "dd-mm-yy")) >= CDate("06-10-03") Then Form2.Show
Else
> MsgBox "Ikke
> men hvad vis jeg også skal have flette ind at den først skal tjekke om
> klokke er over 19.00
> vis ikke den er 19.00 MsgBox klokken er ikke 19.00 vis klokken er 19.00
> skal den gå vidre og tjekke om datoen er den 06-10-03 vis ikke MsgBox
> Ikke...... men vis datoen passer skal den åbne Form2
> altså selv om datoen passser må den ikke åbne form2 vis ikke klokken er
over
> 19.00
> håber jeg har forklaret mig godt nok..... Hvordan laver jeg den??
> mvh HC
>
>
> ---
> Outgoing mail is certified Virus Free.
>
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.524 / Virus Database: 321 - Release Date: 06-10-2003
>
>

---

jeg er ikke så stærk i det her , kan man få det skæret ud i pap
mvh Henrik C




---
Outgoing mail is certified Virus Free.

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.524 / Virus Database: 321 - Release Date: 06-10-2003

---

Du kopierer/limer kodene inn til modulene dine med tastekombinasjonene Ctrl C (kopier) og
Ctrl V (lim inn). Dernest setter du inn ett eller annet i kodenes blanke linjer som en
indikasjon på hvor du er og om det fungerer, f.eks. en msgbox eller en debug.print. Og så
kjører du en eller flere tester. Om det virker tilfredsstillende, så erstatter du
msgboxene med reel kode, hvis ikke så poster du tilbake koden med en forklaring om hva som
ikke virker som du hadde tenkt deg.

--
HTH. Beste hilsen Harald
Followup to newsgroup only please.

"Henrik C" <cichosz@[nospam]tdcadsl.dk> wrote in message
news:3f86de44$0$54844$edfadb0f@dread11.news.tele.dk...
> jeg er ikke så stærk i det her , kan man få det skæret ud i pap
> mvh Henrik C
>

---

Henrik C skrev:
> jeg er ikke så stærk i det her , kan man få det skæret ud i pap

Du mener vel "skåret"?

VB's Date-format er i virkeligheden et kommatal, som beskriver hvor lang tid
der er gået siden d. 1. januar år 100 kl. 00.00.
Cifrene før kommaet tæller dagene siden 1. januar år 100, og cifrene efter
kommaet tæller hvor langt man er nået i det pågældende døgn.

Værdien 1,5 (dansk komma) betegner altså dagen 2. januar år 100 og
tidspunktet er kl. 12.00 (én døgn + et halvt døgn).
Resultatet af regnestykket 19/24 giver altså en værdi, som svarer til den
værdi decimalerne har, når tidspunktet 19.00 gemmes i en Date-datatype.

Hvis man vil udtrykke kl. 19.24, kan man f.eks. regne i minutter: 1164/1440,
idet der er 1440 minutter på et døgn, og der er gået 1164 minutter siden
døgnet startede, når klokken er 19.24.

Hvis man vil gøre sig selv (og andre) en tjeneste, bør man dog nok holde sig
til Hour(), Minute(), Second() og TimeSerial() funktionerne:

If Time > TimeSerial(19, 24, 0) Then MsgBox "Så er det NU!"

-------
Tomas

---

hej jeg er kommet frem til at det her virker fint (med alles hjælp)
men er det gangbar eller rodet
vis meget rodet hvordan så?
Private Sub Label1_Click()
If Not Val(Format(Time, "hh")) >= 19 Then
MsgBox "Tiden passer ikke"
Exit Sub
End If
If CDate(Format$(Now, "dd-mm-yy")) >= CDate("01-10-03") Then Form2.Show Else
MsgBox "Ikke idag!"

End Sub

mvh HC


---
Outgoing mail is certified Virus Free.

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.524 / Virus Database: 321 - Release Date: 06-10-2003

---

"Henrik C" <cichosz@[nospam]tdcadsl.dk> wrote in
news:3f888c27$0$54786$edfadb0f@dread11.news.tele.dk:

> Private Sub Label1_Click()
> If Not Val(Format(Time, "hh")) >= 19 Then
> MsgBox "Tiden passer ikke"
> Exit Sub
> End If
> If CDate(Format$(Now, "dd-mm-yy")) >= CDate("01-10-03") Then
> Form2.Show Else MsgBox "Ikke idag!"
>
> End Sub

Tjaaheh jeg kan da godt læse det ;) men med noget "bedre" indents:

Private Sub Label1_Click()
'Tjek tiden
If Not Val(Format(Time, "hh")) >= 19 Then
MsgBox "Tiden passer ikke"
Exit Sub
End If

'Tjek datoen
If CDate(Format$(Now, "dd-mm-yy")) >= CDate("01-10-03") Then
Form2.Show
Else
MsgBox "Ikke idag!"
End If
End Sub

---

Henrik C skrev:
> If Not Val(Format(Time, "hh")) >= 19 Then
> MsgBox "Tiden passer ikke"
...
> If CDate(Format$(Now, "dd-mm-yy")) >= CDate("01-10-03") Then Form2.Show
Else
> MsgBox "Ikke idag!"

Noget helt andet: Er det ikke lidt omvendt at checke tiden før datoen?

Der et principielt lidt ærgerligt at prøve at starte programmet kl. 11.00,
og få at vide at man skal vente til efter kl. 19.00. Det går man så, men får
først dér at vide at det slet ikke er en rigtige dag!

-------
Tomas

---

ja det kan være rigtig men i dette tilfælde er det er specialt kalender
program der først må køres efter klokken 19.00 om dagen da alt først vil
være inde da. så passer det jo meget godt ikke


---
Outgoing mail is certified Virus Free.

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.524 / Virus Database: 321 - Release Date: 06-10-2003

---

Henrik C skrev:
> ja det kan være rigtig men i dette tilfælde er det er specialt kalender
> program der først må køres efter klokken 19.00 om dagen da alt først vil
> være inde da. så passer det jo meget godt ikke

Hvad med datoen?

-------
Tomas

---

"Henrik C" <cichosz@[nospam]tdcadsl.dk> wrote in news:3f86de44$0$54844
$edfadb0f@dread11.news.tele.dk:

> jeg er ikke så stærk i det her , kan man få det skæret ud i pap
> mvh Henrik C

Private Sub Form_Load()
If Hour(Now) >= 19 Then
'Kode når klokken er mere end eller lig med 7 om aftenen
MsgBox "Klokken har slået 7, skynd dig hen og tænd for
fjernsynet!", vbCritical, Me.Caption
Else
'Kode når klokken er mindre end 7 om aftenen
MsgBox "Slap af, klokken har IKKE slået 7.", vbInformation,
Me.Caption
End If
End Sub

Papudskæring:
Hvis klokken er mere end 7 om aftenen (linie 2), viser den en MsgBox "Skynd
dig hen og tænd for fjernsynet!" (Linie 4) :), og ellers (klokken er mindre
end 7) (linie 5: Else) viser den en Slap Af-MsgBox (linie 7)

Hilsen Mathias

---

hej Tak
Det kan jeg godt se er meget bedre
mvh HC


---
Outgoing mail is certified Virus Free.

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.524 / Virus Database: 321 - Release Date: 06-10-2003