Date Orari e Stringhe

Module Module1

    Sub Stringhe()
        ' operazioni sulle stringhe
        Dim s As String = "Questa è una stringa"

        Console.WriteLine("La stringa è lunga {0} caratteri", s.Length)
        Console.WriteLine("Il terzo carattere è '{0}'", s.Chars(2))
        Console.WriteLine("La stringa contiene 'prova'? {0}", s.Contains("prova"))
        Console.WriteLine("La stringa contiene 'una'? {0}", s.Contains("una"))
        Console.WriteLine("La stringa termina con 'stringa'? {0}", s.EndsWith("stringa"))
        Console.WriteLine("La stringa inizia con 'Que'? {0}", s.StartsWith("Que"))
        Console.WriteLine("Indice di 'Una': {0}", s.IndexOf("Una"))
        Console.WriteLine("Indice di 'Una' con confronto case insensitive: {0}",
                          s.IndexOf("Una", StringComparison.InvariantCultureIgnoreCase))
        Console.WriteLine("Prima occorrenza di 'n': {0}", s.IndexOf("n"))
        Console.WriteLine("Ultima occorrenza di 'n': {0}", s.LastIndexOf("n"))
        Console.WriteLine("Riempita a sinistra fino a 30 caratteri: '{0}'", s.PadLeft(30, "*"))
        Console.WriteLine("Riempita a destra fino a 30 caratteri: '{0}'", s.PadRight(30, "*"))

        Dim parti() As String = s.Split()
        For Each p As String In parti
            Console.WriteLine("     {0}", p)
        Next

        Dim frase As String = "Ciao a tutti, questa è una frase: che ve ne pare?"
        Console.WriteLine(frase)
        Dim parole() As String = frase.Split(",", " ", "?", ":")
        For Each p As String In parole
            Console.WriteLine("    {0}", p)
        Next
        Console.WriteLine(s.ToLower())
        Console.WriteLine(s.ToUpper())

        Dim words() As String = {"Ciao", "a", "tutti"}
        Dim j As String = String.Join("#", words)
        Console.WriteLine(j)
    End Sub
    Sub DateEOrari()
        Dim d As DateTime
        Console.WriteLine(d)
        d = DateTime.UtcNow
        Console.WriteLine(d)
        d = DateTime.Now
        Console.WriteLine(d)
        Console.WriteLine("Giorno: {0}", d.Day)
        Console.WriteLine("Giorno della settimana: {0}", d.DayOfWeek)
        Console.WriteLine("Giorno nell'anno: {0}", d.DayOfYear)
        Console.WriteLine("Mese: {0}", d.Month)
        Console.WriteLine("Anno: {0}", d.Year)
        Console.WriteLine("Ore: {0}", d.Hour)
        Console.WriteLine("Minuti: {0}", d.Minute)
        Console.WriteLine("Secondi: {0}", d.Second)
        Console.WriteLine("Millisecondi: {0}", d.Millisecond)
        Dim tomorrow As DateTime = d.AddDays(1)
        Dim yesterday As DateTime = d.AddDays(-1)
        Dim t As TimeSpan = d.Subtract(tomorrow)
        Console.WriteLine("Differenza tra oggi e domani: {0}", t)
    End Sub

    Sub Main()
        DateEOrari()
    End Sub
End Module