vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Nächste zwei Wochen richtig ermitteln... 
Autor: Cheffboss
Datum: 10.10.14 13:16
Hallo!
Ich habe ein kleines Problem, und brauche eure Hilfe.
Ich möchte eine Zeitschaltungs-Software programmieren.
Diese verschiedene Zeit Intervalle besitzt.
Zum Beispiel: Täglich, Wöchentlich, Monatlich
Jährlich.
Für jeden Zeitintervall habe ich eine Lösung gefunden, außer für das „Wöchentlich“.
Ich versuche nun zu beschreiben, was der Wöchentlich Code Block tun sollte.
Also, meine Zeitschaltungs-Software liest mit einen Timer, Zeit Werte aus einer Listbox aus.
Siehe Code: 
If Date.Parse(i.SubItems(1).Text) <= Date.Parse(Now) Then
Sobald diese Anweisung ausgeführt wird.
Möchte ich dass der nächste Zeitwert, dieser in 2 Wochen ist ermittelt wird. 
' Wöchentlich
' i.SubItems(1).Text = Aktuelle Uhrzeit
        Dim NeuerZeitWert As String
        Dim Datum As DateTime = Date.Parse(i.SubItems(1).Text).AddDays( _
          7).ToShortDateString
        Dim Zeit As DateTime = Date.Parse(i.SubItems(1).Text).ToLongTimeString
        NeuerZeitWert = Datum & " " & Zeit
Dieser Code hat allerdings ein großes Problem!
Zum Beispiel soll mich das Programm jede Woche einmal mit einer MessageBox informieren!
Wenn das Programm bereits gestartet ist, wird eine MessageBox erscheinen, und das nächste Datum wird richtig ermittelt(so wie gewünscht).
Aber wenn ich das Programm mal später oder in mehre Wochen oder sogar Monate wieder starten möchte.
Dann erscheinen tausende MessageBoxen, für jedes Datum, da der Wert hochgezählt wird.
Und genau hier ist das Problem!
Ich hoffe ich könnte euch das Problem gut erklären.
Ich freue mich wirklich sehr auf eure Hilfe!
Vielen Dank!

Info: 
Dim Datum As DateTime = Date.Parse(i.SubItems(1).Text).AddDays( _
  7).ToShortDateString
Ich glaube, dass man hier ein Lösungsweg finden kann!
Mit einer passenden IF Abfrage! Und NOW!?
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Nächste zwei Wochen richtig ermitteln...1.108Cheffboss10.10.14 13:16
Re: Nächste zwei Wochen richtig ermitteln...682Manfred X10.10.14 13:30
Re: Nächste zwei Wochen richtig ermitteln...622Cheffboss11.10.14 18:46

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel