![](/forum/profile/get-photo.asp?memberid=30&type=profile&rnd=592) Extreme Veteran
Beiträge: 565
![500](http://donkarl.com/forum/images/decorations/multiple/500.gif) ![25](http://donkarl.com/forum/images/decorations/multiple/25.gif) ![25](http://donkarl.com/forum/images/decorations/multiple/25.gif)
| 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 |