Office: (Office 2003) Monat und jahr zweistellig in VB

Liebe Liste,

habe leider noch ein Problem, ich ermittle mit folgendem Code Monat und Jahr, klappt prima, ich brauche diese aber jeweils 2-stellig, also aus 26.06.2006 mach monat=06 jahr=06

Me.jahr = Year(startdatum)
Me.monat = Month(startdatum)

kann mir jemand helfen?
danke im Voraus und Grüße aus Darmstadt
Alexandra

:)

 

... schau mal in der OH unter FORMAT...

 

Hallo, FW,

das habe ich ja auch gefunden und alles mögliche mit yy und mm probiert, in einer Abfrage habe ich auch kein Problem damit, aber ich bekomme es in dem VB-code nicht an die richtige Stelle?

Me.jahr = DatePart(yy, startdatum)

gibt eine Fehlermeldung "ungültige Prozedur oder ungültiges Argument"

??

 

... DatePart ist nicht dir Format-Funktion...

 

Probiere es so:
Code:

Wenn startdatum ebenfalls ein Textfeld ist, fehlt dort jeweils noch ein Me!.

 

Hallo, Arne,

genau soweit war ich gerade auch gekommen, jedoch sind meine Felder Monat und Jahr jetzt einstellig, ausser ab einem Startdatum über September, dann hat der Monat zwei.... ;-)

Muss ich irgenwo noch ein DIM oder sowas aufführen?? Kann es dran liegen, dass ich nachfolgenden noch aus dem Startdatum weitere Daten berechne?

Private Sub startdatum_AfterUpdate()

Me.jahr = Format(startdatum, "yy")
Me.monat = Format(startdatum, "mm")

If [dauer] = "1" Then
Me.enddatum = [startdatum]
Me.seminarzweittag = Null
Me.seminardrittag = Null
Me.seminarvierttag = Null
Me.seminarfünfttag = Null
End If

Danke, Alexandra

 

... dann versuche es hiermit:
Me![jahr] = Format(Year(startdatum),"00")
Me![monat] = Format(Month(startdatum),"00")
...

 

Hallo, FW,

das gibt mir bei beiden Feldern monat und jahr natürlich das gleiche Ergebnis, nämlich z.B. für das startdatum 03.12.2006 die Zahl 39054.. ??

 

...ups, sorry, zurück.. ich hab was falsches kopiert...

 

.. klappt auch nicht, Monat ist je nachdem 1-oder 2stellig, Jahr ist vierstellig...

mpfh... ;-))

 

... dann schau Dir mal die Formatierung der Steuerelemente selbst an!

 

..ups.. guter Tipp, standen auf Zahl, sollen natürlich Text sein.. jetzt klappts das super mit dem Monat, nur das Jahr ist immer noch 4-stellig... aber das ist nicht so tragisch, bei der weiteren Verwendung extrahiere ich einfach nur die letzen beiden Zahlen..

super, danke!!!!!!!!!

 

Dann versuch's erneut mit dem Code in Beitrag #5.