Können 6 Zahlen ein Datum ergeben?
PeterDoering
Gesendet: 10.05.21 10:22
Betreff: RE: Können 6 Zahlen ein Datum ergeben?



Extreme Veteran

Beiträge: 566
5002525
Hallo,

Paula - 08.05.21 10:56
ScanStrLänge = InStr(1, medScan, "17"))
ScanStr = Mid(medScan, ScanStrLänge + 2, 2) + "." + Mid(medScan, ScanStrLänge + 4, 2) + "." + Mid(medScan, ScanStrLänge + 6, 2)
If IsDate(CDate(ScanStr)) Then edDatumString.Value = CDate(ScanStr)

Die Ermittlung von ScanStrLänge und ScanStr ist erstmal ok. Allerdings würde CDate bereits einen Fehler geben, wenn im String kein gültiges Datum enthalten ist. Insofern könntest du folgendes machen:

On Error Goto gKeinDatum
edDatumString.Value=CDate(ScanStr)
Goto gEnd
gKeinDatum:
edDatumString.Value=Null
gEnd:

-----
Gruss - Peter
Top of the page Bottom of the page