Version=6.80 NumberOfForms=1 Form1=Form1 FormWidth=238 FormHeight=268 IconFile= NumberOfDesktopIncludes=0 NumberOfDeviceIncludes=0 NumberOfObjects=0 NumberOfModules=0 Sub designer addform(Form1,"Form1","",220,220,220)@ addlabel(form1,Ausgabe,20,150,200,25,"",220,220,220,0,0,0,True,True,11,False)@ addbutton(form1,Button1,70,85,100,35,"Auslesen",212,208,200,0,0,0,True,True,9)@ adddatetime(form1,Calendar1,70,30,100,22,"dd.mm.yyyy",255,255,255,0,0,0,True,True,9)@ End Sub @EndOfDesignText@ Sub Globals 'Declare the global variables here. End Sub Sub App_Start ' das Datumsformat auf die in Deutschland übliche schreibweise setzen DateFormat("dd.mm.yyyy") ' die Überschriften der Wochentage auf Deutsch (Montag, Dienstag, Mittwoch, ...) Calendar1.DaysString = "MDMDFSS" ' der erste Tag der Woche in Deutschland ist der Montag Calendar1.FirstDay = 2 Form1.Show End Sub Sub Button1_Click Ausgabe.text = Wochentag(Calendar1.Value) & ", der " & Date(Calendar1.Value) End Sub Sub Wochentag(ticks) name = "" Select DateDayOfweek(ticks) Case "Monday" name = "Montag" Case "Tuesday" name = "Dienstag" Case "Wednesday" name = "Mittwoch" Case "Thursday" name = "Donnerstag" Case "Friday" name = "Freitag" Case "Saturday" name = "Samstag" Case "Sunday" name = "Sontag" End Select Return name End Sub