| Von |
Sabrina |
| Am |
14. Januar 2009 um 17:51:15 |
| Frage |
Hallo,
Alsooo, ich muss am Freitag ein Referat über kopf-und fußgesteuerte Schleifen halten und meiner Klasse das ganze mit 'nem Beispiel näher bringen.
Da ich das ganze etwas weniger langweilig gestalten will, hab ich mir folgendes ausgedacht:
Ich setz als Anfangswert das Datum am Freitag und lass die die Schleife dann so lange durchlaufen bis das Datum der 26.03.08 ,also Prüfungsanfang, ist. Dabei will ich die einzelnen Daten pro Schritt in einem Listenfeld anzeigen lassen. Daneben soll dann noch stehen der wievielte Schritt ist. Also müsste dann am Ende 69 Schritte gemacht worden sein.
Bisher hab ich das hier:Private Sub Form_Load()
Dim mDatum As Date
Dim mAbi As Date
mDatum = Val(tfDatum)
mAbi= 26.03.2008
Do
lfCountdown.AddItem Str(mDatum) + " " +
Loop While mDatum < mAbi
End Sub
Könnt ihr mir helfen das richtig hinzukriegen?
|
|
Zum Seitenanfang