Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » Kleine Helferlein

Wochentagsausgabe in verschiedenen Sprachen

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.Redakteurytwinky 06.02.2012

Mit der vbcompat.bi ist es möglich, den aktuellen Wochentag zu bestimmen. Wer für sein Programm die Ausgabe in einer bestimmten Sprache benötigt, findet hier eine Möglichkeit. Bereits eingebaut sind deutsch, englisch, portugiesisch, französisch und spanisch. Aus dem Quellcode ist ersichtlich, wie weitere Sprachen hinzugefügt werden können.
(Dazu muß dann auch der Index vom Array Wt geändert werden, es reicht den #define-Wert zu erhöhen..)
Es bleibt dem Benutzer überlassen die jeweilig nicht benötigten Programmzeilen zu ent-/kommentieren.
In der Übersicht wird jetzt auch die Sprache ausgegeben, falls nicht klar ersichtlich ist, was was ist ;-))

#include "vbcompat.bi"
#define MaxLng 4
Declare Function WochenTag(Tag As Integer=WEEKDAY(NOW), Sprache As Integer=0) As String
Width 98, 25
For i As Integer=0 To MaxLng
'aktuellen Wochentag ausgeben
'   Print Wochentag(, i)
'alle Wochentage ausgeben..
  Print WochenTag(0, i) &": ";
  For j As Integer=1 To 7
    Print WochenTag(j, i) &", ";
  Next
  Print !"\b\b "
Next
GetKey
End

Function WochenTag(Tag As Integer=Weekday(NOW), Sprache As Integer=0) As String
  'Sprache: 0=deutsch(default), 1=english, 2=portugiesisch, 3=französisch 4=spanisch
  Dim Wt(MaxLng, 0 To 7) As String={ _
    {"deutsch", "Sonntag", "Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag"}, _
    {"english", "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"}, _
    {!"portugu\136s", "domingo", "segunda-feira", !"ter\135a-feira", "quarta-feira", "quinta-feira", "sexta-feira", !"s\160bado"}, _
    {!"fran\135ais", "Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi"}, _
    {!"espa\164ol", "Domingo", "Lunes", "Martes", !"Mi\130rcoles", "Jueves", "Viernes", "Sabado"}}
    Return Wt(Sprache, Tag)
End Function


Zusätzliche Informationen und Funktionen
  • Das Code-Beispiel wurde am 07.08.2007 von Redakteurytwinky angelegt.
  • Die aktuellste Version wurde am 06.02.2012 von Redakteurytwinky gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen