Мои проекты.

[GrihoSs]

Создал прогу Ageindays, которая расчитывает кол-во прожитых дней.

Код: Выделить всё

Option Explicit
Dim adate1 As Date, adate2 As Date, aresult As Long


Private Sub cmd1_Click()
    adate1 = CDate(Date1.Text)
        adate2 = CDate(Date2.Text)
            aresult = adate1 - adate2
                Result.Text = aresult
                   
End Sub

Private Sub cmd2_Click()
End
End Sub


Как сделать ,что бы кнопка расчета была заблокированна , до тех пор пока не будет внесена информация в текстбоксы (формат даты"d/m/y")?

[BV]

Хм, так и проверяй в событиях _Change - cmd1.Enabled = CBool(Date1.Text <> vbNullString)

[GrihoSs]

спасибо.