<div>
Comments: 
1. It would be better to actually calculate the number of days, both with weekends and total days in the month. 
 
2. Wouldn't it be more helpful if the function returned the number of hours per day you need to study?
</div>

<div>
Hi 
 
I checked your function 
 
I made this text 
 
Edit1.Text := Late(40,'16:45',false ) 
I got this result 
you are late by 38,1818181818182 hours 
 
Your 2 option is welcome, so I could have a variable that could keep the number of hours per day I need to study 
 
function Late(hoursPerMonth : Integer; HoursStudied: String; IncludeWeekEnd: Boolean; Var HourShouldStudy: String): String; 
 
If you could make this changing, I thank you very much. 

</div>

<div>
I put this sample together for you. It works on exact hours not averages and you can specify which days of the week you want to study. It also allows you to check progress on a specific date. Hope this helps... 

<pre><code class="code-100 nolinks" id="code-124122">PAS File:
====================================================
 
unit Unit1;
 
interface
 
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, CheckLst, ComCtrls;
 
type
 TStudyDays = set of byte;
 TStudyProgress = record
 HoursStudied,
 HoursTarget: integer;
 end;
 
 TForm1 = class(TForm)
 Button1: TButton;
 lbStudyDays: TCheckListBox;
 Label1: TLabel;
 inpDateCheck: TDateTimePicker;
 Label2: TLabel;
 Label3: TLabel;
 inpHoursStudied: TEdit;
 Label4: TLabel;
 inpHoursTarget: TEdit;
 GroupBox1: TGroupBox;
 inpProgress: TMemo;
 procedure FormCreate(Sender: TObject);
 procedure Button1Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
 
var
 Form1: TForm1;
 
implementation
 
uses DateUtils;
 
{$R *.dfm}
 
function StudyProgress(DateToCheck: TDate; TargetHours: Integer; HoursStudied: word; StudyDays: TStudyDays): TStudyProgress;
type
 TSchedule = record
 StudyDate: TDate;
 HoursTarget,
 HoursTargetTotal: integer;
 end;
var schedule: array of TSchedule;
 hpd, //hours per day
 md, //days in month
 sd, //study days available
 dow, //day of week
 ha, //hours allocated
 d,m,y: word;
 i: integer;
begin
 DecodeDate(DateToCheck, y,m,d);
 
 //get days available for study, Mon to Friday
 md:= MonthDays[(m = 2) and IsLeapYear(y), m];
 for i:= 0 to md-1 do
 begin
 dow:= DayOfWeek(EncodeDate(y,m,i+1));
 if dow in StudyDays then
 begin
 SetLength(schedule, Length(Schedule)+1);
 schedule[Length(schedule)-1].StudyDate:= EncodeDate(y,m,i+1);
 end;
 end;
 sd:= Length(schedule);
 
 hpd:= TargetHours div sd;//hours per day
 
 //calculate targets
 ha:= 0;
 for i:= 0 to sd-1 do
 begin
 schedule[i].HoursTarget:= hpd;
 ha:= ha + hpd;
 end;
 
 //because of div function we possibly have unallocated hours due to rounding
 //here we allocate them by adding 1 hour from first day until all are allocated
 i:= 1;
 while ha &lt; TargetHours do
 begin
 Inc(schedule[i-1].HoursTarget);
 inc(ha);
 Inc(i);
 if i &gt; sd then i:= 1; //if cycled through all study days but still have unallocated, start from 1st again
 end;
 
 //calculate running total
 for i:= 0 to sd-1 do
 if i = 0
 then schedule[i].HoursTargetTotal:= schedule[i].HoursTarget
 else schedule[i].HoursTargetTotal:= schedule[i-1].HoursTargetTotal + schedule[i].HoursTarget;
 
 //finally check our progress
 i:= 0;
 if (DateToCheck &gt; schedule[sd-1].StudyDate)
 then i:= sd
 else repeat Inc(i) until schedule[i].StudyDate &gt;= DateToCheck;
 
 result.HoursStudied:= HoursStudied;
 result.HoursTarget:= schedule[i-1].HoursTargetTotal;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 inpDateCheck.DateTime:= now;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var t, h, i: integer;
 sd: TStudyDays;
 sp: TStudyProgress;
begin
 for i:= 0 to lbStudyDays.Count-1 do
 if lbStudyDays.Checked[i] then Include(sd, i+1);
 if sd = [] then
 raise exception.Create('You must specify at least one study day.');
 
 if NOT TryStrToInt(inpHoursTarget.Text, t) then
 raise exception.Create(QuotedStr(inpHoursTarget.Text) +' is not valid for target hours');
 
 if NOT TryStrToInt(inpHoursStudied.Text, h) then
 raise exception.Create(QuotedStr(inpHoursStudied.Text) +' is not valid for study hours');
 
 sp:= StudyProgress(inpDateCheck.Date, t, h, sd);
 inpProgress.Clear;
 inpProgress.Lines.Add('As at:' + FormatDateTime('dd-mmm-yyy', inpDateCheck.Date));
 inpProgress.Lines.Add('Target:' + IntToStr(sp.HoursTarget));
 inpProgress.Lines.Add('Studied:' + inpHoursStudied.Text);
 
 if sp.HoursStudied = sp.HoursTarget
 then inpProgress.Lines.Add('You are on target');
 if sp.HoursStudied &lt; sp.HoursTarget
 then inpProgress.Lines.Add(Format('You are behind by %d hours', [sp.HoursTarget-sp.HoursStudied]));
 if sp.HoursStudied &gt; sp.HoursTarget
 then inpProgress.Lines.Add(Format('You are ahead by %d hours', [sp.HoursStudied-sp.HoursTarget]));
end;
 
end.
 
 
 
DFM File:
====================================================
 
object Form1: TForm1
 Left = 315
 Top = 148
 BorderStyle = bsDialog
 Caption = 'Form1'
 ClientHeight = 326
 ClientWidth = 290
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = 'MS Sans Serif'
 Font.Style = []
 OldCreateOrder = False
 OnCreate = FormCreate
 PixelsPerInch = 96
 TextHeight = 13
 object Label1: TLabel
 Left = 152
 Top = 16
 Width = 73
 Height = 13
 Caption = 'Date To &amp;Check'
 FocusControl = inpDateCheck
 end
 object Label2: TLabel
 Left = 16
 Top = 16
 Width = 54
 Height = 13
 Caption = 'Study &amp;Days'
 FocusControl = lbStudyDays
 end
 object Label3: TLabel
 Left = 152
 Top = 104
 Width = 67
 Height = 13
 Caption = 'Hours &amp;Studied'
 end
 object Label4: TLabel
 Left = 152
 Top = 64
 Width = 62
 Height = 13
 Caption = '&amp;Target Hours'
 end
 object Button1: TButton
 Left = 80
 Top = 152
 Width = 121
 Height = 25
 Caption = 'Check &amp;Progress'
 TabOrder = 0
 OnClick = Button1Click
 end
 object lbStudyDays: TCheckListBox
 Left = 16
 Top = 32
 Width = 121
 Height = 109
 ItemHeight = 13
 Items.Strings = (
 'Sunday'
 'Monday'
 'Tuesday'
 'Wednesday'
 'Thursday'
 'Friday'
 'Saturday')
 TabOrder = 1
 end
 object inpDateCheck: TDateTimePicker
 Left = 152
 Top = 32
 Width = 121
 Height = 21
 Date = 39652.474279212960000000
 Time = 39652.474279212960000000
 TabOrder = 2
 end
 object inpHoursStudied: TEdit
 Left = 152
 Top = 120
 Width = 121
 Height = 21
 TabOrder = 4
 Text = '5'
 end
 object inpHoursTarget: TEdit
 Left = 152
 Top = 80
 Width = 121
 Height = 21
 TabOrder = 3
 Text = '40'
 end
 object GroupBox1: TGroupBox
 Left = 16
 Top = 192
 Width = 257
 Height = 121
 Caption = 'Study Progress'
 TabOrder = 5
 object inpProgress: TMemo
 Left = 8
 Top = 24
 Width = 241
 Height = 89
 TabOrder = 0
 end
 end
end
</code></pre>
</div>

<div>
Hello PierreC: 
 
I liked of you example very very much :)) 
 
I made a simulation 
 
As at:23-jul-2008 
Target:34 
Studied:5 
You are behind by 29 hours 
 
What I could understand is that I have a plan of 40 hours per month to study and up to now I studied only 5 hours. shouldn't My target of study be 35 hours? If I have 5 hours studied and my plan is 40 hours, then I need 35 and not 34, am I correct? Something wrong in the code? 
 
I liked your example a lot and I would like to ask you two possible things to make this example totally suitable to me. 
 
A way to show the user how many hours he should study per day according to the days selected. 
then I would have this: 
 
Plan study: 40 hours per month 
Study per day: 1 hour and 23 minutes to accomplish your goal 
 
Studied 5 hours up to now As at:23-jul-2008 
You are behind by 29 hours 
Target:34 hours of study 
Study per day to now to be on time: 3 hours and 20 minutes 
 
Did you understand? Please let me know if it is possible to do. 
I am bad working with date functions 
 
thanks a lot
</div>

<div>
RE: &quot;What I could understand is that I have a plan of 40 hours per month to study and up to now I studied only 5 hours. shouldn't My target of study be 35 hours? If I have 5 hours studied and my plan is 40 hours, then I need 35 and not 34, am I correct? Something wrong in the code?&quot; 
 
Not sure I understand what you're saying... In your example, the target hours as at 23/7 is 34, you have studied 5 so you are 29 behind. no problem there... 
 
Will add schedule viewing functionality... 
 
The example was built on working in whole hours only and would need some customising. willl see what I can do.
</div>

<div>
Thanks very much PierreC 
 
I developed a system here and this sample will totaly suitable to me. 
I also would like to insert your name in credits of my system with this participation. Of course, if you 
want too :)) 
 

</div>

<div>
yeah, of course. 
I can send you some pictures of it. Give me your email. 
 

</div>

<div>
Hi PierreC, did you see it?
</div>

<div>
<div class="content wysiwyg-content">
Hello guys 
 
Function (hoursPerMonth : Integer; HoursStudied: String; IncludeWeekEnd: Boolean): String 
 
I chose 30 hours per month in useful days, that is, 30 hours / 22 useful days 
But I can tell the function if my shedule includes weekend, then my 30 hours chosen will be split into 30 days. 
 
So imagine this situation: 
I scheduled my total hours per month to 40 hours 
Each useful day &nbsp;I should study a little to accomplish my goal &quot;40 hours&quot; 
the current date is &nbsp;07/23/2008 
I have studied 23 hours, of course I am late in my studied. 
How many hours I am late? This is the return of the function 
 
Thanks
</div>
</div>

Hello guys

Function (hoursPerMonth : Integer; HoursStudied: String; IncludeWeekEnd: Boolean): String

I chose 30 hours per month in useful days, that is, 30 hours / 22 useful days
But I can tell the function if my shedule includes weekend, then my 30 hours chosen will be split into 30 days.

So imagine this situation:
I scheduled my total hours per month to 40 hours
Each useful day  I should study a little to accomplish my goal "40 hours"
the current date is  07/23/2008
I have studied 23 hours, of course I am late in my studied.
How many hours I am late? This is the return of the function

Thanks

How can I assemble a function that could show me how many hours I am late in my study, take a look

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.