Определить количество прожитых дней

Tanya272

Есть код для Visual Basik 6.0, а надо для 2010 года. Помогите пожалуйста.
Option Explicit On
Public Class Form1
    Dim dtmDate1 As Date
    Dim dtmDate2 As Date
    Dim dtmDays As Long
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        dtmDate1 = CDate(TextBox1.Text)
        dtmDate2 = CDate(TextBox2.Text)
        dtmDays = dtmDate1 - dtmDate2
        lblInf.Caption = " Посмотрите, сколько дней вы прожили на свете"
        lblResult.Caption = dtmDays
    End Sub
End Class
3 ответа

Tanya272

Вот скрин


Tanya272

Я знаю не знаю на какие переделать...


Tanya272

        Dim D1 As Date = Now
        Dim D2 As Date = CDate(TextBox1.Text)
        MsgBox(DateDiff(DateInterval.Day, D2, D1))