{"id":246,"date":"2020-09-18T09:39:55","date_gmt":"2020-09-18T09:39:55","guid":{"rendered":"http:\/\/basicwebsitesolutions.com\/blog\/?p=246"},"modified":"2020-09-18T09:39:55","modified_gmt":"2020-09-18T09:39:55","slug":"delphi-6-get-date-from-and-date-to-with-number-of-days","status":"publish","type":"post","link":"https:\/\/basicwebsitesolutions.com\/blog\/2020\/09\/18\/delphi-6-get-date-from-and-date-to-with-number-of-days\/","title":{"rendered":"Delphi 6 – Get Date From and Date To With Number of Days"},"content":{"rendered":"\n

So far I have recreated this code far more in the 16 years that I have been using Delphi. Just wanted to log it here so that when I need it again, it will be here.<\/p>\n\n\n\n

Hope it can also help other people<\/p>\n\n\n\n

Enjoy<\/p>\n\n\n\n

Coffee Cup<\/p>\n\n\n\n
procedure TfrmPassword.BitBtn1Click(Sender: TObject);
var
vWeekDay : String;
begin
\/\/DateUtils
\/\/get the first and last day
if (ALMONTH.VALUE <= 11) then
begin
ALFROM.VALUE := StrToDate( ALMONTH.Text + ‘\/01\/’ + ALYEAR.Text );
ALTO.VALUE := StrToDate( IntToStr(ALMONTH.VALUE + 1) + ‘\/01\/’ + ALYEAR.Text ) – 1;
end
else
begin
ALFROM.VALUE := StrToDate( ’12\/01\/’ + ALYEAR.Text );
ALTO.VALUE := StrToDate( ’01\/01\/’ + inttostr(ALYEAR.Value + 1) ) – 1;
end;
\/\/loop the number of days
ALDAYS.VALUE := DaysBetween(ALTO.VALUE, ALFROM.VALUE) + 1;
ALDATE.VALUE := ALFROM.VALUE;
ALSUN.VALUE := 0;
ALTOTAL.Value := 0;
while (ALDATE.Value <= ALTO.Value) do
begin
vWeekDay := LongDayNames[DayOfWeek(ALDATE.Value)]; if (vWeekDay = 'Sunday') then ALSUN.VALUE := ALSUN.VALUE + 1 else ALTOTAL.Value := ALTOTAL.Value + 1; ALDATE.Value := ALDATE.Value + 1;<\/code>
end;
end;<\/td><\/tr><\/tbody><\/table>\n","protected":false},"excerpt":{"rendered":"

So far I have recreated this code far more in the 16 years that I have been using Delphi. Just wanted to log it here so that when I need it again, it will be here. Hope it can also help other people Enjoy Coffee Cup procedure TfrmPassword.BitBtn1Click(Sender: TObject); var vWeekDay : String; begin \/\/DateUtils … <\/p>\n

Continue reading “Delphi 6 – Get Date From and Date To With Number of Days”<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4,3],"tags":[139,140,143,141,142],"class_list":["post-246","post","type-post","status-publish","format-standard","hentry","category-day-to-day-life","category-delphi-and-interbase","tag-delphi6","tag-get-date-from-to","tag-number-of-days","tag-start-date-and-end-date","tag-sunday-days"],"_links":{"self":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts\/246","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/comments?post=246"}],"version-history":[{"count":1,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts\/246\/revisions"}],"predecessor-version":[{"id":247,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts\/246\/revisions\/247"}],"wp:attachment":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/media?parent=246"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/categories?post=246"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/tags?post=246"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}