Código Delphi [-] ShowMessage(FloatToStr(CurrentYear)); ShowMessage(FloatToStr(MonthOf(now)));
ShowMessage(FloatToStr(CurrentYear)); ShowMessage(FloatToStr(MonthOf(now)));