|
Hi, alle zusammen. Ich hab mich mal dran gemacht ein kleines Tut zum Thema "Tagauflösen" zu schreiben.
Das einzige was an diesem Code ein bisschen "kompliziert" ist, ist eigentlich nur die Funktion zum Auflösen. Der Rest besteht aus einer Zeile Code.
Also wir brauchen nur eine Form (Form1) und eine Textbox (txtTag).
Fangen wir mal von oben an (die Funktion):
Function Tagaufloesen(Tag)
Select Case Tag
Case 1
Tagaufloesen = "Sonntag"
Case 2
Tagaufloesen = "Montag"
Case 3
Tagaufloesen = "Dienstag"
Case 4
Tagaufloesen = "Mittwoch"
Case 5
Tagaufloesen = "Donnerstag"
Case 6
Tagaufloesen = "Freitag"
Case 7
Tagaufloesen = "Samstag"
End Select
End Function
Hier sind erste einmal alle Tage defieniert. Eigentlich ganz einfach...
Jetzt muss das ganze jedoch auch noch ausgegeben werden. Das machen wir in einer Textbox (txtTag).
Sub form_Load()
txtTag.Text = Tagaufloesen(Weekday(Date))
End Sub
---------------------------------------------------------------------------
So nun sind wir fertig und erfahren welchen Tag wir heute haben.
Euer GuckGuck
|
|