German Spinner: 2020 to 1900

[so27]

Hallo zusammen,

ich verwende einen Spinner, welcher das aktuelle Jahr anzeigen und bei 1900 enden soll. Mit dem nachfolgenden Code klappt das problemlos, allerdings angefangen bei 1900 bis 2020.

    For q = 1900 To DateTime.GetYear(DateTime.Now)
        Spinner1.Add(q)
    Next

Hat jemand eine Idee, wie ich das Ganze mit dem aktuellen Jahr beginnend füllen kann. Zuerst anzufangen mit DateTime.. to 1900 geht nicht.

 

[b4x-de]

Hallo,

mit Step -1 kann man rückwärtszählen. Zusätzlich würde ich noch empfehlen, die Variable q zu deklarieren.

    Dim q As Int
    For q = DateTime.GetYear(DateTime.Now) To 1900 Step -1
        Log(q)
    Next

Viel Erfolg!
Thomas

 

[so27]

Step -1 das war es. Dankeschön.