title image


Smiley Re: Geburtsdatum sotieren ---Danke!!
Hallo Hannes,wenn Du hier nicht verraten moechtest welche Loesung Du nun nutzt willst, wirst Du auch nicht meine Funktion fuer dieses Problem finden ;-)Function MonthFirst(Geburtstag As Date) As Single Dim WhichDay As Integer Dim WhichMonth As Integer Dim WhichYear As Integer Dim strMonthFirst As String MonthFirst = 0 If Geburtstag = 0 Then Exit Function ElseIf IsDate(Geburtstag) Then WhichDay = Day(Geburtstag) 'Tag bestimmen WhichMonth = Month(Geburtstag) 'Monat bestimmen WhichYear = Year(Geburtstag) 'Jahr bestimmen ' als Text zusammensetzen, Monat zweistellig strMonthFirst = WhichMonth & Format(WhichDay, "00") & WhichYear 'in Zahl convertieren MonthFirst = CSng(strMonthFirst) End IfEnd FunctionViele GruesseNorbert

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: