Source position: moonapi.pas line 124
procedure DecodedateCorrect(
date: TDateTime;
var year: Word;
var month: Word;
var day: Word
);