Re: Access String zerlegen von Martin M. vom 19.07.2002 - 14:10:38
Ich habe folgenes Problem.
ein String mit Inhalt >>01.12.1945<< soll abgeschitten werden.
Ich benötige nur die letzten 4 Stellen also >>1945<<
Ich habe nicht den geringsten Plan wie das geht.
Der Code soll so aufgebaut sein
Dim Speicher as String
Speicher = Me!geb_Datum ' in Speicher steht jetzt 01.12.1945
'Anweisungen die mir fehlen
Me!Ausgabe = Speicher ' in Me!Ausgabe soll jetzt 1945 stehen
Danke Andreas ???
Hallo Andreas,
versuch es mal mit der Funktion Year(geb_Datum).
Grüße
Martin M.
hi andreas,
hoffe du meinst einen in excel importierten string. da ist das folgende sub eine hilfe.
gruß, axel
Sub teilen()
Dim strTest As String
Dim var1 As String
Dim var2 As String
Dim var3 As String
strTest = "MAN200GRT"
'strTest =Range("A1")
var1 = Left(strTest, 3)
var2 = Mid(strTest, 4, 3)
var2 = Right(strTest, 3)
End Sub
nein ich meine schon Access 2000
Es muß ein String sein auch bei der Datumseingabe
der Zweck ist folgender.
Ich habe eine Datenbank die abhängig ist vom Geburtsjahr.
Beim Eintrag des Geburtstages gebe ich aber tag und jahr mit an.
Da ich aber nur das jahr benötige und nicht nochmal eingeben möchte soll das eingegebene Geburtsdatum als grundlage dienen mir einen String zu leibern der nur die 4 stellige Jahreszahl zurückliefert
Andreas
Da habe ich jetzt leider keinen Plan mehr wie das geht leider
Ausgabe eines Teils einer Zeichenfolge
hier alles ab dem 7ten Zeichen
Me!Ausgabe = Mid(Me!geb_Datum, 7)
Viel Spaß,
Nayus
Genau das war es
Danke dir nayus
Andreas
