Office: VBA Zeitdifferenz ermitteln

Hallo zusammen,
ich kriege es einfach nicht hin, kann mir bitte jemand helfen?

Gegeben: Ein Excelsheet mit zwei Einträgen:
A2=Datum/Zeit : 22.03.2023 19:05:32
B2=Zeit: 19:04:23

Gesucht:
Abs. Zeitdifferenz in Sekunden ohne Berücksichtigung des Datums in einer VBA-Variablen.

Sieh einfach aus...

Ganz lieben Dank schon mal für eure Hilfe

 

warum VBA?

Tabelle1

	A	B	C
1	19.04.2023 12:23	22.04.2023 12:35	3,00833333333139

verwendete Formeln
Zelle	Formel	Bereich	N/A
C1	=B1-A1

Zahlenformate
Zelle	Format	Inhalt
A1	'TT.MM.JJJJ hh:mm		45035,5159722222
B1	'TT.MM.JJJJ hh:mm		45038,5243055556
C1	'[ss]		3,00833333333139

Zellen mit Format Standard werden nicht dargestellt

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

Add-In-Version 25.24 einschl. 64 Bit

XHTML-Tabelle zur Darstellung in Foren, einschl. Funktion zum Zurücklesen in eine Excel-Tabelle

 

Lieben Dank für deine Antwort.
Warum in VBA?
Weil ich es gerne direkt innerhalb eines VBA-Scriptes auswerten würde. Das Sheet selber soll unverändert bleiben. Innerhalb des Sheets bekomme ich das hin, indem ich deinen Wert in Spalte C um den ganzzahligen Teil derselben subtrahiere.

 

Gut zu Deiner Lösung kann ich nichts schreiben, da ich nicht auf Deinen Rechner schaue.
Ich bin dann raus.

Gruß Hajo

 

Hallo,

Code:

Option Explicit

Public Function Zeitdifferenz() As Double
  Dim DateTime1 As Double, Time2 As Double
  Dim Date1 As Double
  Dim Diff As Double
 
  With ActiveSheet
       DateTime1 = .Range("A2").Value
       Time2 = .Range("B2").Value
  End With
 
  Date1 = WorksheetFunction.Floor_Math(DateTime1, 1#)
  Diff = DateTime1 - Date1
  Zeitdifferenz = Diff - Time2

End Function

 

Hallo, auch dir lieben Dank Anton!
Ich teste es gleich morgen aus. Sieht im Grunde so aus, wie bei meinen erfolglosen Versuchen, nur die Worksheet.function kannte ich noch nicht. Aber, rein optisch Daumen hoch!
Nochmals Danke und Grüße Ove

 

So, ich habe es nun probiert und generell den Daumen hoch, es funktioniert.

Nun, ich könnte mich jedoch ohrfeigen,
denn das Datum liegt nicht wie anfangs beschrieben im Format
22.03.2023 19:05:32 vor, sondern im Format
22/03/2023 19:05:32
Nun kommt es zu einer Typenunverträglichkeit. 8-(
Weis jemand, wie ich die auflöse?

Lieben Dank und Grüße Ove

 

Hi,

wieso so umständlich?

Code:

Option Explicit

Public Function Zeitdifferenz() As Double
Dim DateTime1 As Double, Time2 As Double
With ActiveSheet
    DateTime1 = .Range("A2").Value
    Time2 = .Range("B2").Value
End With
Zeitdifferenz = DateTime1 - Int(DateTime1)  - Time2
End Function

EDIT: Das Format ist doch egal, solange es eine echte Excel-Zeit und kein Text ist.
Falls es ein Text ist, dann kann dieser mit DateValue(Text) oder auch mit CDate(Text) umgewandelt werden.

 

geht leider nicht, wegen der selben Typenunverträglichkeit.

Das Format der Ursprungszelle ist „Standard“, das kann ich im Sheet nicht ändern, denn es soll ja „unberührt“ bleiben.

Nachtrag: und tatsächlich,
Int(Cdate(DateTime1) wie auch
Int(DateValue(DateTime1)
funktionieren beide.
Dann war wohl das von mir nicht erkannte Textformat die Ursache meines Problems.
Gut, dass es euch hier gibt! ;-)

Dann ist mein Problem Dank euch jetzt gelöst!
Vielen Dank!

Viele Grüsse Ove