diffetempo

calcolo differenza tra due date

Option Explicit

Private Sub CommandButton1_Click()
Dim inizioanno, iniziox As Date
Dim oggi, oggix As Date
Dim giornitrascorsi, trascorsix As Integer
oggi = Date
oggix = TextBox1.Text
iniziox = TextBox2.Text
inizioanno = #1/1/98#
giornitrascorsi = oggi - inizioanno
TextBox1.SetFocus
Label1.Caption = giornitrascorsi
trascorsix = oggix - iniziox
Label3.Caption = trascorsix
End Sub

Private Sub UserForm_Click()
TextBox1.SetFocus
End Sub

ritorna