VB, VBA - Als Zahl gespeichertes Datum ins Date-Format umwandeln (Visual Basic 6, VBA, MS Access 2003, MS Access 2002/XP, MS Access 2000)

Innovative Verpflegung für Ihre Computer

Rezepte -> Microsoft Access -> Datenimport -> Als Zahl gespeichertes Datum ins Date-Format umwandeln

Als Zahl gespeichertes Datum ins Date-Format umwandeln

Bei Datenübernahmen aus anderen Programme und Datenbanksystemen tritt häufig das Problem auf, dass die Datumsangaben in einem Zahlenformat gespeichert sind, dass VB/VBA nicht als Datum erkennen kann. Für eine Umwandlung ins Date-Format ist also etwas Programmierarbeit gefragt.

Häufig werden Datumsangaben in folgenden Formate gespeichert:

Datum:	gespeichert als:	Format:
11. Oktober 1998	981011	yymmdd
11. Oktober 1998	19981011	yyyymmdd
11. Oktober 1998	111098	ddmmyy
11. Oktober 1998	101198	mmddyy

Folgende Funktion stellt eine Lösung dar, wie diese Datumsangaben VB/VBA "verständlich" gemacht werden können:

Function fncNumberToDate( _
     lngDate As Long, _
     strType As String _
) As Date
     
     'Deklaration
     Dim strDate As String
     Dim strDay As String
     Dim strMonth As String
     Dim strYear As String
     Dim datRet As Date
     
     'Datums-Zahl in String umwandeln
     strDate = CStr(lngDate)
     
     'Datums-String auswerten
     Select Case LCase(strType)
         Case "yymmdd"
             strYear = Left(strDate, 2)
             strMonth = Mid(strDate, 3, 2)
             strDay = Right(strDate, 2)
         Case "yyyymmdd"
             strYear = Left(strDate, 4)
             strMonth = Mid(strDate, 5, 2)
             strDay = Right(strDate, 2)
         Case "ddmmyy"
             strYear = Right(strDate, 2)
             strMonth = Mid(strDate, 3, 2)
             strDay = Left(strDate, 2)
         Case "mmddyy"
             strYear = Right(strDate, 2)
             strMonth = Left(strDate, 2)
             strDay = Mid(strDate, 3, 2)
     End Select
     
     'Datum zusammenssetzen und ins Date-Format konvertieren
     datRet = DateValue(strDay & "." & strMonth & "." & strYear)
     
     'Rückgabe
     fncNumberToDate = datRet
     
End Sub

Argument:
lngDate: Datum als Zahl
strType: Datum-Format

Die Funktion kann folgendermassen aufgerufen werden:

"Original"-Datum	Format:	Aufruf:
981011	yymmdd	=fncNumberToDate(981011,"yymmdd")
19981011	yyyymmdd	=fncNumberToDate(19981011,"yyyymmdd")
111098	ddmmyy	=fncNumberToDate(111098,"ddmmyy")
101198	mmddyy	=fncNumberToDate(101198,"mmddyy")

Die Funktion gibt das Datum im VB/VBA-Date-Format zurück.

Benötigen Sie Unterstützung oder weiterführende Informationen, gerne helfen wir Ihnen weiter, reden Sie doch einfach mit uns.

Die Informationen dieser Seite dürfen, gemäss unseren Nutzungsbestimmungen, kostenlos weiterverwendet werden.

Reto Maurer's Software-Chuchi
Seestrasse 26
CH-8802 Kilchberg-Zürich
Telefon: +41 79 635 47 31
E-Mail:info@software-chuchi.ch

URL: http://www.software-chuchi.ch/praxis/microsoft_access_datenimport_als_zahl_gespeichertes_datum_umwandeln.php
Haben Sie technische Probleme oder Bemerkungen, wenden Sie sich an unseren Webmaster
© 2000-2004 Reto Maurer's Software-Chuchi. Alle Rechte vorbehalten.