Makro:MakeDateTime

Aus XIMES

Hintergrund

Val("01.01.06 17:30") wird nicht immer sauber von EXCEL interpretiert. Es geht

  Format("01.01.06  17:30", "YYMMDD HH:MM")

Aber nicht

  val("01.01.06  18:30") - val("01.01.06  17:30") ) 

Daher ist vorher Zerlegung erforderlich

Makro

  Function makeDateTime(str As String) As Double
  'Erwartet string der Form  01.01.06  17:30
  'oder der Form  01.01.2006  17:30
  Dim nr As Integer
       
       str = Trim(str)
       If IsError(InStr(str, " ")) Then Stop Else nr = InStr(str, " ")
       
       makeDateTime = Val(Left(str, nr))
       makeDateTime = makeDateTime + Val(Left(Right(str, 5), 2)) / 24
       makeDateTime = makeDateTime + Val(Right(str, 2)) / 24 / 60
       
  
  End Function