title image


Smiley Versuch mal dies...
Hallo,



Du kannst es ja mal hiermit probieren:

Public Function IsDateFormat( _

Expression As Variant, _

Optional DateFormat As String = vbNullString) As Boolean

'// Pruefung, ob ein Ausdruck als Datum/Zeit

'// interpretierbar ist, erweitert um die Option

'// ein Format in die Pruefung einzubeziehen

Dim fRet As Boolean

 

fRet = False

 

If IsDate(Expression) = True Then

If Len(DateFormat) > 0 Then

fRet = (Expression = _

Format(CDate(Expression), DateFormat))

Else

fRet = True

End If

End If

IsDateFormat = fRet

End Function



Gruß Alex



Code eingefügt mit dem MOF Code Converter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: