Extreme Veteran
Beiträge: 563
 
| 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 |
Können 6 Zahlen ein Datum ergeben?