|
Private Sub cmdAziona_Click()
If IsDate(txtDataPrima) = False Then txtDataPrima.Text = ""
If IsDate(txtDataSeconda) = False Then txtDataSeconda.Text = ""
If txtDataPrima.Text = "" Or txtDataSeconda.Text = "" Then
MsgBox "Errore, inserisci una data nel formato: gg/mm/aaaa", vbExclamation, Me.Caption
Exit Sub
End If
lblDifferenza.Caption = "Tra le 2 date intercorrono " & DateDiff("d", txtDataPrima, txtDataSeconda) & " giorni!!!"
lblGiornoPrimo.Caption = StrConv(WeekdayName(Weekday(txtDataPrima, vbMonday), , vbMonday), vbProperCase)
lblGiornoSecondo.Caption = StrConv(WeekdayName(Weekday(txtDataSeconda, vbMonday), , vbMonday), vbProperCase)
End Sub
Private Sub Form_Load()
txtDataPrima.Text = Date
txtDataSeconda.Text = Date
End Sub
Private Sub lblOggi_Click()
txtDataPrima.Text = Date
txtDataSeconda.Text = Date
End Sub
|
|