title image


Smiley Re: na dann schaut mal hier......
VB In 21 Tagen sagt dazu:Die Timer-Funktion gibt die Anzahl der Sekunden zurück, die auf der internen Uhr des Computers seit Mitternacht vergangen sind.Timer ermittelt die Anzahl der Sekunden zwischen Zeitwerten, aber nur für Zeitwerte innerhalb eines Tages. Wo Timer nicht mehr funktioniert, setzen DateAdd(),DateDiff() und DatePart() ein. =============================================================================================Tabelle 8.5: Die Funktionen für die Datumsarithmetik vergleichen Datumswerte Funktionsname   Beschreibung---------------------------------------------------------------------------------------------DateAdd()       Gibt ein neues Datum zurück, nachdem Sie einen Wert zu einem Datum addiert habenDateDiff()      Gibt die Differenz zwischen zwei Datumswerten zurückDatePart()      Gibt eine Komponente (ein Element) eines bestimmten Datums zurückDiese drei arithmetischen Funktionen arbeiten mit den in Tabelle 8.5 aufgelisteten Datumskomponenten. Tabelle 8.5 listet die Datumskomponenten auf, mit denen dieseFunktionen arbeiten, ebenso wie ihre Intervallwerte, die die einzelnen Komponenten beschriften. Mit Hilfe der Intervallwerte werden innerhalb der Datumsarithmetik-Funktionen Teile eines Datums oder einer Zeit ermittelt. =============================================================================================Tabelle 8.6: Die Datumsarithmetik-Funktionen arbeiten mit diesen Zeitabschnitten Intervallwert  Zeitabschnitt---------------------------------------------------------------------------------------------jjjj        Jahrq           Quartalm           Monatj           Tag im Jahrt           Tagw           Wochentag (Sonntag ist 1, Montag ist 2 usw. für Day(), Month(), Year() und DateDiff())ww          Wocheh           Stunden           Minute (beachten Sie, daß das kein m ist)s           Sekunde=============================================================================================    Dim dtBegin As Date    Dim dtEnd As Date        '-- Differenz in Sekunden    Dim nDiff As Integer        '-- Startdatum ist jetzt    dtBegin = Now()    '-- das Ende liegt 60 Sekunden in der Zukunft    dtEnd = DateAdd("s", 60, dtBegin)        Do        nDiff = DateDiff("s", Now, dtEnd)        DoEvents        Debug.Print (nDiff)    Loop While nDiff > 0

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: