CDate für Englisches Datum
27.12.2005 13:53:33
lexika
kann mir vielleicht jemand sagen was man tun muß um ein englisches Datum zu verarbeiten? (27-Dec-05)
Private Function NeuesteDatei() As String
Dim fn As String, fd As String
Dim fNeu As String
Dim d As Date
fn = Dir(Pfad1_lesen & "*.csv")
Do While fn <> ""
fd = Replace(fn, ".csv", "")
If IsDate(fd) Then
If CDate(fd) > d Then
d = CDate(fd)
fNeu = fn
End If
End If
fn = Dir()
Loop
NeuesteDatei = fNeu
End Function
Danke