Guten Tag zusammen,
ich schreibe an einem VB.NET Programm welches auf eine Exceltabellen mit Daten zugreifen soll.
In meinem Problem geht es um den Zugriff/Import eines Zeitstempels.
Das Programm Import zwar eine Zeit diese weicht aber insbesondere beim Datum von der Exceldatei ab.
Mein vorgehen ist wie folgt:
In Excel wird in der Zelle "A2" folgender Inhalt angezeigt: 22.02.2017 09:03:42
Beim Debuggen wird mir für dt #2/25/0118 09:03:42 AM# angezeigt.
Wie ihr dem Code entnehmen könnt möchte ich den Zeitstempel zerlegen um in später im Programm weiter verwenden zu können.
Ich verwende das aktuelle Office 365 unter Windows 10.
Programmierumgebung ist Visual Studio 2017.
Zum besseren Nachvollziehen habe ich die Excel Datei angehängt.
Wäre schön wenn jemand einen Denkanstoß hätte.
Vielen Dank schon mal.
Viele Grüße
Daniel
ich schreibe an einem VB.NET Programm welches auf eine Exceltabellen mit Daten zugreifen soll.
In meinem Problem geht es um den Zugriff/Import eines Zeitstempels.
Das Programm Import zwar eine Zeit diese weicht aber insbesondere beim Datum von der Exceldatei ab.
Mein vorgehen ist wie folgt:
Quellcode
- Sub DatenEinlesen()
- Dim objExcel As Excel.Application
- Dim objWorkbook As Excel.Workbook
- Dim objWorksheet As Excel.Worksheet
- Dim Stunde As String
- Dim Minute As String
- Dim Sekunde As String
- Dim Tag As String
- Dim Monat As String
- Dim Jahr As String
- objExcel = CType((CreateObject("Excel.Application")), Excel.Application)
- objWorkbook = objExcel.Workbooks.Open(Tb_Quellverzeichnis.Text & "\" & QuelldateiName)
- objExcel.Visible = False
- objWorksheet = CType(objWorkbook.Sheets(1), Excel.Worksheet)
- Dim dt As DateTime = (New DateTime()).AddDays(objWorksheet.Range("A2").Value)
- Stunde = dt.Hour
- Minute = dt.Minute
- Sekunde = dt.Second
- Tag = dt.Day
- Monat = dt.Month
- Jahr = dt.Year
- End Sub
In Excel wird in der Zelle "A2" folgender Inhalt angezeigt: 22.02.2017 09:03:42
Beim Debuggen wird mir für dt #2/25/0118 09:03:42 AM# angezeigt.
Wie ihr dem Code entnehmen könnt möchte ich den Zeitstempel zerlegen um in später im Programm weiter verwenden zu können.
Ich verwende das aktuelle Office 365 unter Windows 10.
Programmierumgebung ist Visual Studio 2017.
Zum besseren Nachvollziehen habe ich die Excel Datei angehängt.
Wäre schön wenn jemand einen Denkanstoß hätte.
Vielen Dank schon mal.
Viele Grüße
Daniel
