vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Visual-Basic Einsteiger
Re: Versteh nix mehr !!! 
Autor: riedie
Datum: 26.02.03 20:24
1.) Ich würde mir angwöhnen immer meine Variablen zu deklarieren !

Der Compiler versucht zwar die Datentypen so zu belegen, dass sie miteinander compatibel sind, ist dies jedoch einmal nicht der Fall so entsteht bei 1 von 100 durchläufen ein Fehler. Diese Fehler sind dann EXTREM schwer zu finden !

2) Dein Format-Statement stimmt nicht !

Das Kürzel das du verwendest ("mm") steht für Monate. Die benötigst jedoch die Minuten ("nn")

dd = Tage
mm = Monate
yyyy = Jahre

hh = Stunden
nn = Minuten
ss = Sekunden

Der Fehler ist nun folgender:
du setzt deine Variable Zeit auf eine bestimmte Uhrzeit. Der Compiler deklariert diese Variable (Zeit) nun automatisch als Date (date speichert Datum + Uhrzeit)
da du kein Datum angegeben hast, setzt der Compiler den Wert auf Initialisierungswert ... also hier: "30:12:1899 16:00:00"

probier mal: 
MsgBox Format(zeit, "dd:mm:yyyy hh:nn:ss")
du benötigst jedoch folgendes 
 weck_min = Format(zeit, "nn")
der fertige code sieht dann so aus: 
  Dim zeit As Date
  zeit = Time$
  zeit = Format("16:00:00", "hh:nn:ss")
 
  Dim weck_std As Byte 'eine Byte-Variable kann Zahlen bis 254 speichern
  Dim weck_min As Byte
 
  weck_std = Format(zeit, "hh")
  weck_min = Format(zeit, "nn")
 
  'MsgBox Format(zeit, "dd:mm:yyyy hh:nn:ss")
 
  If (txt_w_std = weck_std) And (txt_w_min = weck_min) Then
    MsgBox ("Es wird Zeit")
  End If
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Versteh nix mehr !!!138Soulfly211126.02.03 15:45
Re: Versteh nix mehr !!!58riedie26.02.03 20:24

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-2025 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