Z1 = Planner.GpTextBox_H1.Value
Z2 = Planner.GpTextBox_H2.Value
Z3 = Planner.GpTextBox_H3.Value
Z4 = Planner.GpTextBox_H4.Value
Z5 = Planner.GpTextBox_H5.Value
Z6 = Planner.GpTextBox_H6.Value
Z7 = Planner.GpTextBox_H7.Value
Z8 = Planner.GpTextBox_H8.Value
Planner.Label_Jour1.Caption = Format(((Z2 - (Z2 < Z1) - Z1) + (Z4 - (Z4 < Z3) - Z3)), "hh:mm")
Planner.Label_Jour2.Caption = Format(((Z6 - (Z6 < Z5) - Z5) + (Z8 - (Z8 < Z7) - Z7)), "hh:mm")