German DateDayOfWeek als deutscher Wochentag

Discussion in 'German Forum' started by Ida, Oct 24, 2009.

  1. Ida

    Ida Member Licensed 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
     
  2. wolfgang

    wolfgang Member Licensed User

    Wochentag

    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
     
  3. specci48

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

    Attached Files:

  4. Ida

    Ida Member Licensed User

    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
     
  5. Ida

    Ida Member Licensed User

    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
     
  6. Ida

    Ida Member Licensed User

    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
     
  7. Ida

    Ida Member Licensed User

    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
     
  8. klaus

    klaus Expert Licensed 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.
     
  9. Ida

    Ida Member Licensed User

    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
     
  10. specci48

    specci48 Well-Known Member Licensed 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
     
  11. specci48

    specci48 Well-Known Member Licensed 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
     
  12. Ida

    Ida Member Licensed User

    Hallo speci48,

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

    Gruß

    Ida
     
  13. Ida

    Ida Member Licensed User

    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
     
  14. Ida

    Ida Member Licensed User

    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
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice