Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

WeekOfYear

Posted on 1998-12-04
5
Medium Priority
?
646 Views
Last Modified: 2012-06-21
How can I know what week is the date in a year ?

Ex. January 1, 1998   : 1st week
       
      December 28, 1998 : 52th week
0
Comment
Question by:joely
5 Comments
 
LVL 44

Expert Comment

by:bruintje
ID: 1349355
Hi Joely,

Take a look at this link,

http://www.ellipse-data.com/delphifaq/delphi_faq_1.html#2.5.8.2

there is a function called week of year on the page.

Bruintje.
0
 
LVL 5

Expert Comment

by:scrapdog
ID: 1349356
Try this:

procedure TForm1.Button1Click(Sender: TObject);
var
  CurrentDate, Year, Jan1, Week :string;
  Days :integer;
begin
  CurrentDate := DateToStr(Now);
  Year := copy(CurrentDate, Length(CurrentDate)-1,2);
  Jan1 := '1/1/'+Year;
  Days := Trunc(Now-StrToDate(Jan1));
  Str((Days div 7)+1, Week);
  Panel1.Caption := Week;

end;

0
 
LVL 5

Expert Comment

by:scrapdog
ID: 1349357
actually now that I look at the link bruintje mentioned, the code there takes into account the day of the week Jan 1 falls on..
0
 
LVL 4

Expert Comment

by:jeurk
ID: 1349358
If you are using the RXlib, then you can find that function in the dateutils unit.
0
 

Accepted Solution

by:
Alex_K earned 40 total points
ID: 1349359
You must get date_ in TDateTime type like
date_:=now;
in next step you must truncate this variable like
date_:=trunc(date_);
and last step, is calculated number of day of week:
day:=(date_ mod 7)-2;

It all...

0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
Whether it be Exchange Server Crash Issues, Dirty Shutdown Errors or Failed to mount error, Stellar Phoenix Mailbox Exchange Recovery has always got your back. With the help of its easy to understand user interface and 3 simple steps recovery proced…
The Relationships Diagram is a good way to get an overall view of what a database is keeping track of. It is also where relationships are defined. A relationship specifies how two tables connect to each other. As you build tables in Microsoft Ac…
Suggested Courses
Course of the Month10 days, 2 hours left to enroll

569 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question