从 Excel 表读取给出错误值

Question

I want to read from a TimeTable. Unfortunately that doesn't work. Instead of "3:53" at B1, the program reads and shows 0.16 . How can I improve this? I am using Microsoft.Office.Interop . I have already tried to change the formatting in the table - to no avail.

Private xlApp As Excel.Application = New Excel.Application
Private xlWorkBook As Excel.Workbook
'in a Sub:
xlWorkBook = xlApp.Workbooks.Open(filepath)
 Dim xlWorkSheet As Excel.Worksheet = CType(xlWorkBook.Worksheets("L7"), Excel.Worksheet)
        Dim xlRange As Excel.Range = xlWorkSheet.UsedRange
        Dim ER As Excel.Range
        Dim ER2 As Excel.Range
        Dim Index As Integer = 0
        For Zeile As Integer = 1 To xlRange.Rows.Count
            ER = CType(xlRange.Cells(Zeile, 1), Excel.Range)
            ER2 = CType(xlRange.Cells(Zeile, 2), Excel.Range)
            If CStr(ER2.Value) = "..." Then
                Continue For
            End If
        Dim gesplittet As String() = CStr(ER2.Value).Split(":"c)
'...

ER.Value becomes 0.16 instead of "3:53". I want to have a String.

Answer 1

Time and date values are usually stored internally totally different in spread sheet and database programs. Therefore you will never get directly the values you see as you get the raw values. In your case it seems like you are getting a time/date value: the date is the value before the dot and the fractional digits are the fraction of the 24 hour day.

0.16 * 24 = 3.84 hours

Which means 3 hours and 0.84 of one hour:

0.84 * 60 = 50.4 minutes

I assume the small difference to your expected value is because the value 0.16 was a rounded value. Using the exact value and performing the calculations should get you the expected result.