Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
712to716
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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CDate für Englisches Datum

CDate für Englisches Datum
27.12.2005 13:53:33
lexika
Hi,
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

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

Betreff
Datum
Anwender
Anzeige
AW: CDate für Englisches Datum
27.12.2005 15:03:04
Reinhard
Hi lexika,
ein Ansatz:
Option Explicit
Function Datum(ByVal d As String) As Date
Dim dd
d = Replace(d, "Dec", "Dez")
dd = Split(d, "-")
Datum = CDate(dd(0) & "." & dd(1) & "." & dd(2))
End Function
Sub test()
MsgBox Datum("27-Dec-2005")
End Sub

Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.
Danke
28.12.2005 09:50:38
lexika
Hi Reinhard,
vielen Dank für Deine Hilfe.
Gruß
lexika

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige