Private Sub H1_Change(): TA: End Sub
Private Sub M1_Change(): TA: End Sub
Private Sub H2_Change(): TA: End Sub
Private Sub M2_Change(): TA: End Sub
Sub TA()
HD = Format((H1 + M1 / 4) / 24, "hh:mm")
HF = Format((H2 + M2 / 4) / 24, "hh:mm")
TextAmplitude = Format(CDate(HF) - CDate(HD) - (CDate(HF) < CDate(HD)), "hh:mm")
End Sub