Datumsformatierung

[Alfred_]

Hi,
ich habe eine Combo in der ich die vorhandenen Jahre (Datumswerte) ausweise. Diese Jahresanzahl benötige ich für einen SQL-String zum Auswerten.
Nun möchte ich aber diese Combo auf Monatswerte abändern. Meine Abänderung ist allerdings falsch, weil ich ja mit diesem Syntax 11 Monate unterschlage. Es werden nur die vollen Jahre x 12 gerechnet.
Mit > lTemp = Month(Date) - Month(.Fields(0).Value) < funktioniert es nicht!
Für Eure Hilfe bedanke ich mich jetzt schon recht herzlich.

  With oRs 'Recordset
    If .RecordCount Then
      ''lTemp = Year(Date) - Year(.Fields(0).Value)
      lTemp = (Year(Date) * 12) - (Year(.Fields(0).Value) * 12)
    End If
    .Close
  End With
Set oRs = Nothing
DoEvents

  With cboMonth 'Combobox füllen
    For i = 0 To lTemp - 1
        .AddItem CStr(i + 1)
    Next
    ''.ListIndex = (i - 1) 'max Monate
    .ListIndex = 0 'min Monate
  End With

 

[bici]

Ich weiß zwar nicht genau was du meinst, aber:

was mir bei Formatierungsproblemen immer geholfen hat:
1) Stelle eines bestimmten Zeichens (im String) suchen:
Dim Stelle as Integer
Dim String as String
String="Hallo;Du"
'Stelle=InStr("ab", "String", "zeichen")
Stelle=InStr(1, String, ";") 'Stelle wird dann den Wert 6 enthalten

2) Bestimmte Zeichen aus einem String filtern:
Dim Variable as String
Dim Kette as String
Kette="Zeichen:ABC"
'Variable=Mid(String, ab, wieviel) 'Gibst du "wieviel" nicht an, wird bis zum _ende gelesen
Variable=Mid(Kette, 9, 3) 'Variable="ABC"

So kannst du dir dein Zeug selbst zusammenstoppeln!

 

[Alfred_]

Hi,
entschuldige meine verspätete Antwort, aber ich konnte nicht zum Compi.
Ich denke, dass wir aneinander"reden". Es geht nicht um den SQL-String, sondern um eine Datums(Zeit)funktion.
Jedenfalls danke für Deine Bemühungen!