vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 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

Fortgeschrittene Programmierung
Jepp, Dieter  
Autor: unbekannt
Datum: 20.04.02 12:59
Hi Dieter,

genau das Gleiche habe ich vor zwei Tagen auch proggen müssen, ZeitDifferenz in hh:mm:ss.

Ich habe es so gemacht: 

Dim n As Long
Dim h As Byte, m As Byte, s As Byte
Dim sErg As String
 
n = DateDiff("s",vonDatum,bisDatum)
 
h = n  3600            'falls nicht sichtbar Backslash
n = n MOD 3600
 
m = n  60               'falls nicht sichtbar Backslash
n = n Mod 60
 
sErg = Format(CStr(h) & ":" & CStr(m) & ":" & Cstr(n), "hh:mm:ss")
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Zeit41Florian18.04.02 21:41
Re: Zeit283ModeratorDieter18.04.02 21:58
Re: Zeit22Florian20.04.02 11:05
Re: Zeit289ModeratorDieter20.04.02 11:15
Vielen Dank und schönes Wochenende20Florian20.04.02 11:46
Jepp, Dieter 289unbekannt20.04.02 12:59

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