-
Welcome to B4X forum!
B4X is a set of simple and powerful cross platform RAD tools:
- B4A (free) - Android development
- B4J (free) - Desktop and Server development
- B4i - iOS development
- B4R (free) - Arduino, ESP8266 and ESP32 development
German DateDayOfWeek als deutscher Wochentag
- Thread starter Ida
- Start date
- Similar Threads Similar Threads
Wochentag
Hallo,
ich hoffe ich verstehe Dich richtig:
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
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...
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...
Lieber Wolfgang,
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
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
Lieber specci48,
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
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
Hallo specci48,
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
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
Hallo Wolfgang,
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
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
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.
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.
Hallo Klaus,
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
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
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
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
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
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
Hallo specci48,
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
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
Hallo Klaus,
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
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
