title image


Smiley Re: Dann noch ein Versuch
Hallo,



gut, dann einen 2. Versuch:

Public Function IsTime( _

Expression As Variant) As Boolean

'// Pruefung, ob ein Ausdruck als Zeit

'// interpretierbar ist.

 

If IsDate(Expression) Then

IsTime = (CDbl(CDate(Expression)) <= 1)

End If

End Function

Werte vom Typ Date sind ja intern Double (8 Bytes), wobei IMHO der Zeitanteil in den Nachkommastellen zu finden ist.



Gruß Alex



Code eingefügt mit dem MOF Code Converter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: