Anonymous

Option Strict On
Imports System.Console
Module Module1
    Sub Main()
        Dim pvm As Date
        Dim dag, jatko As String
        jatko = "k"
        While jatko <> "e" And jatko = "k"
            Do
                Write("Anna päivämäärä: ")
                pvm = CDate(ReadLine())
            Loop Until IsDate(pvm)
            Select Case pvm.DayOfWeek
                Case DayOfWeek.Sunday
                    dag = "Sunnuntai"
                Case DayOfWeek.Monday
                    dag = "Maanantai"
                Case DayOfWeek.Tuesday
                    dag = "Tiistai"
                Case DayOfWeek.Wednesday
                    dag = "Keskiviikko"
                Case DayOfWeek.Thursday
                    dag = "Torstai"
                Case DayOfWeek.Friday
                    dag = "Perjantai"
                Case DayOfWeek.Saturday
                    dag = "Lauantai"
            End Select
            WriteLine(dag)
            Do
                WriteLine("Jatketaanko? (k tai e)")
                jatko = CStr(ReadLine()).ToLower
            Loop Until jatko = "k" Or jatko = "e"
        End While
    End Sub
End Module