Amount := Wages / DaysInAMonth(PayYear, PayMonth);
Notes
Wages = basic wages from employee for the process date
PayYear and PayMonth := PostDate