vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Mails senden, abrufen und decodieren - ganz easy ;-)  
 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

Allgemeine Diskussionen
Re: Zeiten addieren 
Autor: ModeratorDieter (Moderator)
Datum: 27.10.01 02:23
Hallo Jan,

so schwierig ist das gar nicht
Man braucht nur die DateAdd-Funktion korrekt einzusetzen! 

<code>Dim NewDate As Date
Dim sFeld As String
 
sFeld = "01.11.01 22:00"
NewDate = CDate(sFeld)
 
<font color=green>' zunächst die Tage hinzuaddieren</font>
NewDate = DateAdd("d", 1, NewDate)
 
<font color=green>' jetzt die Stunden hinzuaddieren
' 0,25 = 6 Stunden</font>
NewDate = DateAdd("h", 6, NewDate)
 
<font color=green>' Ergebnis ausgeben</font>
MsgBox Format$(NewDate, "dd.mm.yy hh:nn")</code>
Man hätte natürlich auch die ganzen Tage in Stunden umrechnen können. Dann brauch man "DateAdd" nur einmal anzuwenden: 
<code>Dim NewDate As Date
Dim sFeld As String
 
sFeld = "01.11.01 22:00"
NewDate = CDate(sFeld)
 
<font color=green>' nur Stunden addieren</font>
NewDate = DateAdd("d", 24 + 6, NewDate)
 
<font color=green>' Ergebnis ausgeben</font>
MsgBox Format$(NewDate, "dd.mm.yy hh:nn")</code>
Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Zeiten addieren254Jan27.10.01 01:59
Re: Zeiten addieren562ModeratorDieter27.10.01 02:23
Re: Zeiten addieren76Jan27.10.01 22:51
Re: Zeiten addieren73Ralf28.10.01 13:03
JA...463ModeratorDieter28.10.01 13:08

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