DateDayOfWeek als deutscher Wochentag

Ida · #1 (**permalink**) 10-24-2009, 12:45 PM

Hallo,
nach längerer Abwesenheit in diesem Forum habe ich eine Frage:
Wie erhält man mit DateDayOfWeek in einem Textfeld einen deutschen Wochentag?
Die Überschriften des Kalenders habe ich schon eingedeutscht, das klappt auch.
Danke schon mal!
Gruß
Ida

wolfgang · #2 (**permalink**) 10-24-2009, 02:25 PM

Hallo,
ich hoffe ich verstehe Dich richtig:

Code:

Sub Globals
    'Declare the global variables here.

End Sub

Sub App_Start
    Form1.Show
    Wochentag
End Sub

Sub Wochentag
    Select DateDayOfweek(Now)
        Case "Monday"
            lbtag.Text = "Heute ist Montag"
        Case "Tuesday"
            lbtag.Text = "Heute ist Dienstag"
        Case "Wednesdsday"
            lbtag.Text = "Heute ist Mittwoch"
        Case "Thursday"
            lbtag.Text = "Heute ist Donnerstag"
        Case "Friday"
            lbtag.Text = "Heute ist Freitag"
        Case "Saturday"
            lbtag.Text = "Heute ist Samstag"
        Case "Sunday"
            lbtag.Text = "Heute ist Sonntag"
    End Select
End Sub

specci48 · #3 (**permalink**) 10-24-2009, 02:39 PM

Hallo Ida,

schön mal wieder etwas von Dir zu hören...

Eine direkte "eindeutschung" zum DateDayOfWeek gibt es leider nicht, d.h. man muss die englischen Namen z.B. in einer separaten Sub selbst auf deutsch umsetzen.

Im Anhang ein Beispiel hierzu.

Gruß
specci48

Edit: Hatte den Post von Wolfgang noch nicht gesehen...

Ida · #4 (**permalink**) 10-24-2009, 07:44 PM

Lieber Wolfgang,

Quote:

Originally Posted by wolfgang

Hallo,
ich hoffe ich verstehe Dich richtig:

Code:

Sub Globals
    'Declare the global variables here.

End Sub

Sub App_Start
    Form1.Show
    Wochentag
End Sub

Sub Wochentag
    Select DateDayOfweek(Now)
        Case "Monday"
            lbtag.Text = "Heute ist Montag"
        Case "Tuesday"
            lbtag.Text = "Heute ist Dienstag"
        Case "Wednesdsday"
            lbtag.Text = "Heute ist Mittwoch"
        Case "Thursday"
            lbtag.Text = "Heute ist Donnerstag"
        Case "Friday"
            lbtag.Text = "Heute ist Freitag"
        Case "Saturday"
            lbtag.Text = "Heute ist Samstag"
        Case "Sunday"
            lbtag.Text = "Heute ist Sonntag"
    End Select
End Sub

vielen Dank für Deine Antwort! Ich hoffe, dass ich morgen oder eher übermorgen (wegen meiner familiären Probleme - 90jährige Mutter -) alles ausprobieren kann.

Gruß
Ida

Ida · #5 (**permalink**) 10-24-2009, 07:45 PM

Lieber specci48,

Quote:

Originally Posted by specci48

Hallo Ida,

schön mal wieder etwas von Dir zu hören...

Eine direkte "eindeutschung" zum DateDayOfWeek gibt es leider nicht, d.h. man muss die englischen Namen z.B. in einer separaten Sub selbst auf deutsch umsetzen.

Im Anhang ein Beispiel hierzu.

Gruß
specci48

Edit: Hatte den Post von Wolfgang noch nicht gesehen...

vielen Dank für Deine Antwort! Ich hoffe, dass ich morgen oder eher übermorgen (wegen meiner familiären Probleme - 90jährige Mutter -) alles ausprobieren kann.

Gruß
Ida

Ida · #6 (**permalink**) 10-26-2009, 05:40 PM

Hallo specci48,

Quote:

Originally Posted by specci48

Hallo Ida,

schön mal wieder etwas von Dir zu hören...

Eine direkte "eindeutschung" zum DateDayOfWeek gibt es leider nicht, d.h. man muss die englischen Namen z.B. in einer separaten Sub selbst auf deutsch umsetzen.

Im Anhang ein Beispiel hierzu.

Gruß
specci48

Edit: Hatte den Post von Wolfgang noch nicht gesehen...

Vielen Dank für Deine calendar.sbp!
Habe sie ausprobiert; klappt sehr gut.

Ich hätte den deutschen Wochentag nur gerne automatisch, wie in dem Beispiel "birthday.sbp", das von Basic4ppc mitgeliefert wird.
Leider muss ich durch die lange Pause wieder fast ganz von vorne anfangen.

Soll ich mal "meine" Geburtstag.sbp anhängen?

Gruß
Ida

Ida · #7 (**permalink**) 10-26-2009, 05:46 PM

Hallo Wolfgang,

Quote:

Originally Posted by wolfgang

Hallo,
ich hoffe ich verstehe Dich richtig:

Code:

Sub Globals
    'Declare the global variables here.

End Sub

Sub App_Start
    Form1.Show
    Wochentag
End Sub

Sub Wochentag
    Select DateDayOfweek(Now)
        Case "Monday"
            lbtag.Text = "Heute ist Montag"
        Case "Tuesday"
            lbtag.Text = "Heute ist Dienstag"
        Case "Wednesdsday"
            lbtag.Text = "Heute ist Mittwoch"
        Case "Thursday"
            lbtag.Text = "Heute ist Donnerstag"
        Case "Friday"
            lbtag.Text = "Heute ist Freitag"
        Case "Saturday"
            lbtag.Text = "Heute ist Samstag"
        Case "Sunday"
            lbtag.Text = "Heute ist Sonntag"
    End Select
End Sub

Danke noch einmal!
Nun habe ich Deinen Code an mein "Geburtstag.sbp" eingefügt.
Leider mit Fehlermeldungen. Ich fange erstmal wieder von vorne an wegen der langen Pause.

Ich füge den Code mal ein:

Sub Globals
myTime=0
End Sub

Sub App_Start
Cal1.DaysString = "MDMDFSS"
Cal1.FirstDay = 2
Cal1.TodayString = "Heute"
Wochentag
frmMain.show
End Sub

Sub Timer1_Tick
t = myTime - Now
'seconds= Format((t Mod cTicksPerMinute)/cTicksPerSecond,"d2")
'minutes = Format(Int((t Mod cTicksPerHour)/cTicksPerMinute),"d2")
'hours = Int((t Mod cTicksPerDay)/cTicksPerHour)
days = Int(t/cTicksPerDay)
txtTime.text = days & " Tagen "
'txtTime.text = days & " Tagen, " & hours & " Stunden, " _
' & CRLF & minutes & " Minuten, " &seconds & " Sekunden"
End Sub

Sub Cal1_Close
myTime = DateAdd(cal1.value , DateYear(Now)-DateYear(cal1.value),0,0)
If Now > myTime Then myTime = DateAdd(myTime, 1,0,0)
'lblDay.text = DateDayOfweek(cal1.value)
lblDay.text = Wochentag
timer1.enabled=True
cal1.focus
End Sub

Sub Wochentag
Select DateDayOfweek(Now)
Case "Monday"
lbDay.Text = "Heute ist Montag"
Case "Tuesday"
lbDay.Text = "Heute ist Dienstag"
Case "Wednesdsday"
lbDay.Text = "Heute ist Mittwoch"
Case "Thursday"
lbDay.Text = "Heute ist Donnerstag"
Case "Friday"
lbDay.Text = "Heute ist Freitag"
Case "Saturday"
lbDay.Text = "Heute ist Samstag"
Case "Sunday"
lbDay.Text = "Heute ist Sonntag"
End Select
End Sub

Code-Ende

Irgendetwas stimmt nicht ...

Hast Du eine Idee?

Gruß
Ida

klaus · #8 (**permalink**) 10-26-2009, 06:11 PM

Hallo Ida,

Für solche Fragen wäre es vorteilhaft, die Fehlermeldung anzugeben und den Code als sbp Datei zu posten.
Denn wenn man Deinen Code kopiert muss man dann auch die Form mit allen Controls erstellen, was Ich gemacht habe.
Der Fehler liegt darin dass du einmal den Namen lblDay hast und in der Routine Sub Wochentag benützt Du den Named lbDay.

Beiliegend die sbp Datei.

Beste Grüsse.

Ida · #9 (**permalink**) 10-26-2009, 07:56 PM

Hallo Klaus,

Quote:

Originally Posted by klaus

Hallo Ida,

Für solche Fragen wäre es vorteilhaft, die Fehlermeldung anzugeben und den Code als sbp Datei zu posten.
Denn wenn man Deinen Code kopiert muss man dann auch die Form mit allen Controls erstellen, was Ich gemacht habe.
Der Fehler liegt darin dass du einmal den Namen lblDay hast und in der Routine Sub Wochentag benützt Du den Named lbDay.

Beiliegend die sbp Datei.

Beste Grüsse.

Danke für Dein Post und Deine sbp!
Du kennst ja meine Defizite - vor einigen Monaten!
Nachdem ich über 4 Monate nichts in PC - und schon überhaupt nicht in Basic4ppc habe machen können - wegen diverser Probleme, insbesondere mit meiner lieben 90jährigen Mutter -, muss ich nun wieder bei "Adam und Eva" anfangen. Deshalb habe ich mir ja das Beispiel, das mit Basic4ppc mit geliefert wird, ausgesucht: "Birthday.sbp" - und das in Deutsch überführt.

Wäre es möglich, dass Du dieses Beispiel Dir mal anguckst.
Leider weiß ich nicht mal, wie ich eine sbp-Datei anfüge. Bitte nicht schimpfen! Ich bin leider etwas überlastet!

Vielen Dank und Gru0
Ida

specci48 · #10 (**permalink**) 10-26-2009, 09:43 PM

Hallo Ida,

das Problem liegt daran, dass Du einen Teil aus dem Vorschlag von Wolgang und einen Teil aus meinen Vorschlag verwendet hast.
Wolfgang hat in der Sub Wochentag das Label, also das Ausgabefeld, direkt gesetzt. Bei mir gibt die Sub Wochentag den deutschen Namen zurück, den man dann erst noch dem Label/Ausgabefeld zuordnen muss.

Im Anhang findest Du eine deutsche Übersetzung des Beispiels "Birthday.sbp".

Und wie schon mehrfach hier angedeutet: Eine automatische Umwandlung des Wochentages in die deutschen Namen gibt es leider nicht. Daher die separate Sub zur Umsetzung.

Gruß
specci48