Code-Beispiel
Wochentagsausgabe in verschiedenen Sprachen
| Lizenz: | Erster Autor: | Letzte Bearbeitung: |
| k. A. |  ytwinky |  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 ytwinky angelegt.
- Die aktuellste Version wurde am 06.02.2012 von ytwinky gespeichert.
|
|
Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!
Bearbeiten
Versionen