German DateDayOfWeek als deutscher Wochentag

I

Ida

Member
Licensed User
Longtime User
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
 
W

wolfgang

Member
Licensed User
Longtime User
Wochentag

Hallo,
ich hoffe ich verstehe Dich richtig:
B4X: 
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

specci48

Well-Known Member
Licensed User
Longtime User
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...
 

Attachments

  • Calendar.sbp
    1.4 KB · Views: 303
I

Ida

Member
Licensed User
Longtime User
Lieber Wolfgang,

wolfgang said:
Hallo,
ich hoffe ich verstehe Dich richtig:
B4X: 
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
Click to expand...

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
 
I

Ida

Member
Licensed User
Longtime User
Lieber specci48,

specci48 said:
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...
Click to expand...


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
 
I

Ida

Member
Licensed User
Longtime User
Hallo specci48,

specci48 said:
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...
Click to expand...

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
 
I

Ida

Member
Licensed User
Longtime User
Hallo Wolfgang,

wolfgang said:
Hallo,
ich hoffe ich verstehe Dich richtig:
B4X: 
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
Click to expand...

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

klaus

Expert
Licensed User
Longtime User
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.
 
I

Ida

Member
Licensed User
Longtime User
Hallo Klaus,

klaus said:
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.
Click to expand...

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

specci48

Well-Known Member
Licensed User
Longtime User
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
 
specci48

specci48

Well-Known Member
Licensed User
Longtime User
Hallo Ida,

auch wenn es eigentlich nicht in diesem Thread gehört - Anhänge an einen Post bekommt man auf folgende Weise:

1. Wenn Du einen neuen Post (oder auch eine neue Antwort) erstellst, findest Du etwas weiter unten auf der Seite den Button <Manage Attachments>.

2. Wenn man auf den Button klickt öffnet sich ein Pop-Fenster. Nun läßt sich mit <Durchsuchen> eine Datei auf Deinem lokalen PC auswählen. Anschließend noch den Button <Upload> drücken, und die Datei wird in das Basis4ppc-Forum hochgeladen.

Klick mal auf die kleinen Bilder in diesem Post, dann siehst Du die betreffenden Buttons genauer...


Gruß
specci48
 
I

Ida

Member
Licensed User
Longtime User
Hallo speci48,

specci48 said:
Hallo Ida,

auch wenn es eigentlich nicht in diesem Thread gehört - Anhänge an einen Post bekommt man auf folgende Weise:

1. Wenn Du einen neuen Post (oder auch eine neue Antwort) erstellst, findest Du etwas weiter unten auf der Seite den Button <Manage Attachments>.

2. Wenn man auf den Button klickt öffnet sich ein Pop-Fenster. Nun läßt sich mit <Durchsuchen> eine Datei auf Deinem lokalen PC auswählen. Anschließend noch den Button <Upload> drücken, und die Datei wird in das Basis4ppc-Forum hochgeladen.

Klick mal auf die kleinen Bilder in diesem Post, dann siehst Du die betreffenden Buttons genauer...


Gruß
specci48
Click to expand...

vielen Dank für Deine Mühe!
Ob es wohl geklappt hat?

Gruß

Ida
 
I

Ida

Member
Licensed User
Longtime User
Hallo specci48,

specci48 said:
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
Click to expand...

vielen Dank für Deine deutsche Birthday.sbp! Toll! Ganz langsam verstehe ich wieder etwas mehr.

Habe nun "Deine" mit "meiner" sbp kombiniert und
angehängt - hoffentlich.

Gruß

Ida
 
I

Ida

Member
Licensed User
Longtime User
Hallo Klaus,

klaus said:
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.
Click to expand...

jetzt antworte ich noch einmal auf Dein Post, da ich wohl etwas nicht verstanden hatte.

Habe nun - im vorigen Post - "meine" sbp angehängt.
Danke auch noch einmal, dass Du (in der Ida.sbp) Dir Mühe gemacht hast, meine Versäumnisse zu reparieren.
Nach so vielen Monaten Pause fällt es mir halt sehr schwer, wieder in die Gepflogenheiten dieses tollen Forums zu kommen. Sorry!

Gruß

Ida
 
You must log in or register to reply here.
Top