Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1640to1644
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datumsformat englisch deutsch

Datumsformat englisch deutsch
24.08.2018 08:17:46
Dogan
Hallo,
ich habe hier einen VBA code, dass mir ein Paar Daten aus einer logDatei in eine Excel ließt! Hierbei hab ich das Problem, dass mir das Datum in Englisch und nicht in Deutsch angezeigt wird. Wie bekomme ich das Datum ins deutsche Format?
LogDatei steht: 2018-08-16;23:35:49
Ich bekomme: 18.08.2016 23:35:49
Code:
Sub Next1()
Dim objFileSearch As clsFileSearch
Dim lngIndex As Long, lngTemp As Long
Dim varOutput As Variant, varTemp() As Variant, varValue As Variant
Dim strPath As String
Dim FF As Integer
Dim CloseFind As String, OpenFind As String, PosFind As Integer, TimeFind As Date
OpenFind = ";Opened;"
CloseFind = ";Closed; "
strPath = "\\192.168.100.143\d\PxApplication\Logs" & Cells(1, 2).Value & "\"
If Right(strPath, 1)  "\" Then strPath = strPath & "\"
Call Range(Cells(2, 1), Cells(Rows.Count, 4)).ClearContents
Set objFileSearch = New clsFileSearch
With objFileSearch
.NewSearch = True
.CaseSenstiv = True
.Extension = "*.log"
.FolderPath = strPath
.SearchLike = "*.*"
.SubFolders = True
If .Execute(Sort_by_Date_Create, Sort_Order_Descending) > 0 Then
ReDim varOutput(1 To .FileCount, 1 To 4)
For lngIndex = 1 To .FileCount
lngTemp = 0
Erase varTemp
varOutput(lngIndex, 1) = .Files(lngIndex).FI_FileName
'varOutput(lngIndex, 2) = .Files(lngIndex).FI_LastModify
'varOutput(lngIndex, 3) = .Files(lngIndex).FI_DateCreate
FF = FreeFile
Open .Files(lngIndex).FI_FullName For Input As #FF
Do While Not EOF(FF)
ReDim Preserve varTemp(lngTemp)
Line Input #FF, varTemp(lngTemp)
PosFind = InStr(varTemp(lngTemp), OpenFind)
If PosFind > 0 Then
TimeFind = CDate(Mid(Replace(varTemp(lngTemp), ";", " "), PosFind + Len( _
OpenFind) + 1))
varOutput(lngIndex, 3) = TimeFind
End If
PosFind = InStr(varTemp(lngTemp), CloseFind)
If PosFind > 0 Then
TimeFind = CDate(Mid(Replace(varTemp(lngTemp), ";", " "), PosFind + Len( _
CloseFind) + 1))
varOutput(lngIndex, 2) = TimeFind
End If
lngTemp = lngTemp + 1
Loop
Close #FF
If UBound(varTemp) > 3 Then
If InStr(1, varTemp(UBound(varTemp) - 3), ";") > 0 Then
varValue = Split(varTemp(UBound(varTemp) - 3), ";")
If UBound(varValue) > 3 Then
varOutput(lngIndex, 4) = varValue(4)
End If
End If
End If
Next
End If
End With
Range("A2").Resize(UBound(varOutput, 1), 4) = varOutput
Set objFileSearch = Nothing
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumsformat englisch deutsch
24.08.2018 08:42:52
EtoPHG
Hallo,
Korrigiere die Position in den Mid-Funktionen auf
 ... , PosFind + Len(OpenFind))
... , PosFind + Len(CloseFind))
d.h. das + 1 muss weg!
Gruess Hansueli
AW: Datumsformat englisch deutsch
24.08.2018 09:19:52
Dogan
besten Dank :)
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige