Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von Kasi.
Zeit zwischen
Guten Morgen
Wie kann ich prüfen, ob es gerade zwischen 22:00 und 23:59 uhr ist?
Vielen Dank
@Pixxxas Erstell eine DateTime-Instanz Deiner Test-Zeiten mit dem korrekten Datum und dann verwende je einen der Operatoren { <, <=, >, >= } zum Vergleich Deiner Limits mit DateTime.Now.
Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter(der ist verfügbar). Programmierfragen über PN / Konversation werden ignoriert!
hier zwei möglichkeiten
VB.NET-Quellcode
Option Strict On
PublicClass Form1
PrivateSub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Select Case Format(Uhrzeit, "HH:nn:ss")
Case "06:00:00" To "11:59:59"
Jetzt hast du die Uhrzeit als DateTime vorliegen und du wandelst sie zum Vergleich in einen String.
Da tut weh.
VB.NET-Quellcode
Select Case Uhrzeit.Hour
Case6To11
--
If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch --
@Kasi: Bevor Du weitermachst, bitte die empfohlenen VS-Einstellungen verwenden. Stichwort VB6-Namespace
Zum anderen: Select Case Format(Uhrzeit, "HH:nn:ss")nn -> mm
Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.
Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.
@petaod
hab mitleid es war 07:15
angelehnt an deinem Vorschlag
VB.NET-Quellcode
PrivateSub GetTagesZeit()
SelectCaseHour(Now)
Case7To11
MsgBox("Morgens")
Case12To16
MsgBox("Mittag")
Case16To18
MsgBox("Nachmittag")
Case18To23
MsgBox("Abends")
Case23, 0To6
MsgBox("Nachts")
CaseElse
MsgBox("")
EndSelect
EndSub
@VaporiZed
hast recht das war eine alte VB6 Function
Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter(der ist verfügbar). Programmierfragen über PN / Konversation werden ignoriert!
Hier die neue VB.NET Lösung!
VB.NET-Quellcode
SelectCaseNow.Hour
Visual Basic.NET
MS-SQL
Now ist ebenfalls VB6. Date.Now.Hour ist VB.Net
schmeiß mal den VB6-Namespace raus, damit sowas nicht mehr passiert.
Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.
Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.
Insbesondere, wo das sein primäres Problem ist.
Geh doch zum Marktplatz und biete an, die Probleme der anderen kostengünstig zu lösen.
Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter(der ist verfügbar). Programmierfragen über PN / Konversation werden ignoriert!
Ich löse die Probleme meines Chefs und bekomme Gehalt dafür.
Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter(der ist verfügbar). Programmierfragen über PN / Konversation werden ignoriert!