Keskustelu: Koodit: VB.NET: Aikaero päivämäärien välillä

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim Nyt As Date
    Dim Tuleva As Date
    Tuleva = #12/24/2004 6:00:00 PM#
    Nyt = Date.Now
    Dim Aikaero As TimeSpan = Tuleva.Subtract(Nyt)
    Dim Päiviä As Integer = Int(Aikaero.TotalDays)
    Dim Tunteja As Integer = Int(Aikaero.TotalHours - 24 * Päiviä)
    Dim Minuutteja As Integer = Int(Aikaero.TotalMinutes - 24 * Päiviä * 60 - Tunteja * 60)
    Dim Sekuntteja As Integer = Aikaero.TotalSeconds - 24 * Päiviä * 60 * 60 - Tunteja * 60 * 60 - 60 * Minuutteja
    TextBox1.Text = Päiviä & " päivää"
    TextBox2.Text = Tunteja & " tuntia"
    TextBox3.Text = Minuutteja & " minuuttia"
    TextBox4.Text = Sekuntteja & " sekunttia"
End Sub