Met à jour le temps de gestation en cours
procedure RefreshDureeGestation(ATempsRestant: integer; ATempsMax: integer)