Source position: moonapi.pas line 134
function next_phase(
date: TDateTime;
phase: TMoonPhase
):TDateTime;