✔ In VBA für ACCESS: Vom aktuellen Datum das Monat bzw. das Jahr auslesen

[rene2407]

Ich möchte vom aktuellen Datum das Monat bzw. das Jahr auslesen (bitte das kurze datum: z.B.:01.01.08) um es mit einem Wert in einer Tabelle zu vergleichen.

 

[rene2407]

OK das Problem mit dem Auslesen hat sich erledigt.
Aber wie bekomme ich die kurzform für das Jahr(z.B.:nicht 2007 sondern 07)

 

[larryson]

Wenn Du uns mitteilst, wie du dein obiges Problem erledigt hast, könnten wir vielleicht genauere Hilfe geben.

So bleibt nur sehr allgemein zu sagen:

FORMAT(deinDatum;"jj")

 

[rene2407]

mit

j=year(datum)

bekomme ich das Jahr aber das lange (2007)
ich brauche aber die kurzform(07)
mit:

j=FORMAT(year(datum), jj)

bekomme ich auch nur das lange Jahr(2007) zurück

 

[larryson]

Sorry, hatte etwas überlesen;

so funktioniert es bei mir:

Function test()

test = Format(Date, "YY")
End Function

 

[rene2407]

Ich bekomme mit

j=Format(Date, "YY")

nur eine Fehlermeldung das die typen unverträglich sind oder es ist das falsche datum(06.01.1900) aber auch lang

 

[larryson]

Kommt jetzt drauf an, was für einen Variablentyp 'j' darstellen soll. Das wird normalerweise am Anfang der Prozedur/der Funktion deklariert.

So sollte es funktionieren

Dim j As String
j = Format(Date, "YY")

 

[rene2407]

Genau so habe ich es gemacht funktioniert aber nicht.

 

[larryson]

Moin,
Könntest Du bitte mal Deine kompletten Prozedur posten

 

[rene2407]

Also das ist meine Prozedur:

Private Sub DatumAufteilen()

Dim jahr,Monat,MoJa As String
Dim datum,dat As Date

dat=date
'####################
datum = Format(dat, YY)' gibt das aktuelle datum lang zurück
datum = Format(dat, "YY")' gibt das falsche datum lang zurück
'####################
jahr = Year(datum)
mo = Month(datum)

MoJa = monat & jahr
End Sub

Und dies ist mein derzeitigerversuch. Funktioniert, aber naja

Private Sub DatumAufteilen()

Dim j,Jahr,Monat,MoJa As String
Dim datum,dat As Date

dat=date
j = Year(dat)
mo = Month(dat)

'
Dim Buchstabe As String, i As Integer

For i = 3 To Len(j)
    Buchstabe = Buchstabe & Mid$(j, i, 1)
    MsgBox Buchstabe
    jahr = Buchstabe
    
Next i
Monat = jahr & mo

MoJa = monat & jahr
End Sub

Ich hoffe du kennst dich aus und findest den Fehler.

p.s. Wie führt mann eine Aktionsabfrage und wie eine Datendefinitionsabfrage in VBA aus.