Databases
StackOverflow2013
Postsdbo
PO
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>Probably I'm missing the question but in case I'm not, you can find what you need in "DateUtils.pas". It has functions like "DayOfTheYear", "MonthOfTheYear", "DayOfTheMonth", "DayOfTheWeek" and many more. I think you're gonna store them in different fields, but there might be a probability that you don't need to store them at all; the database you're using might supply similar functionality, in that case you can construct your queries to supply the filtering/ordering you need.</p> <p><strong>edit:</strong> code for the 3rd comment below;</p> <pre><code>procedure TForm1.Button1Click(Sender: TObject); var Year, DaysInYear: Word; FirstDay, i: Integer; begin Year := StrToInt(ano.Text); DaysInYear := DaysInAYear(Year); diasano.Text := IntToStr(DaysInYear); FirstDay := Trunc(EncodeDate(Year, 1, 1)); for i := FirstDay to FirstDay + DaysInYear - 1 do begin Planeamento.Append; Planeamento.FieldByName('diasAno').Value := DayOfTheYear(i); Planeamento.FieldByName('Month').Value := LongMonthNames[MonthOfTheYear(i)]; Planeamento.FieldByName('DayOfMonth').Value := DayOfTheMonth(i); Planeamento.FieldByName('DayOfWeek').Value := LongDayNames[DayOfTheWeek(i)]; Planeamento.Post; end; end; </code></pre> <p><hr /> <strong>edit:</strong> With calculated fields;</p> <p>For the below example the table has five columns instead of four. Let's name the first column 'Date'. This column is the only column to store data and will hold the Date (as per ldsandon's <a href="https://stackoverflow.com/questions/2917336/insert-number-of-days-of-year-months-days-of-month/2921351#2921351">answer</a>, since by storing the date instead of day-number, you won't have to keep track of what table represents what year, and calculations will be simpler). The other four columns are exactly the same as in the question, except that they all are "calculated fields".</p> <pre><code>procedure TForm1.Button1Click(Sender: TObject); var Year, DaysInYear: Word; FirstDay, i: Integer; begin Year := StrToInt(ano.Text); DaysInYear := DaysInAYear(Year); diasano.Text := IntToStr(DaysInYear); FirstDay := Trunc(EncodeDate(Year, 1, 1)); for i := FirstDay to FirstDay + DaysInYear - 1 do begin Planeamento.Append; Planeamento.FieldByName('Date').Value := i; Planeamento.Post; end; end; procedure TForm1.PlaneamentoCalcFields(DataSet: TDataSet); var Date: TDateTime; begin Date := DataSet.FieldByName('Date').AsDateTime; DataSet.FieldByName('diasAno').AsInteger := DayOfTheYear(Date); DataSet.FieldByName('Month').AsString := LongMonthNames[MonthOfTheYear(Date)]; DataSet.FieldByName('DayOfMonth').AsInteger := DayOfTheMonth(Date); DataSet.FieldByName('DayOfWeek').AsString := LongDayNames[DayOfTheWeek(Date)]; end; </code></pre>
    singulars
    1. This table or related slice is empty.
    1. POinsert number of days of year, months, days of month
      singulars
      1. PTQuestion
    1. PTAnswer
    1. USCommunity
    1. USSertac Akyuz
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    1. COi have to use something like the code i say because it wil be like a work calendar for the all year working days . so i will give the Year and i have to insert de nº of days in the year (2010= 365 days) where day 1 wil be january,1,tuesday and so on..in each record (365 record´s) then i only nead to inseart task´s amd filter by today (DaysInAYear(Year) but how can i insert wall at once!! Thank´s
      singulars
      1. PO
      1. USml.
    2. COYou could loop through "day no"s while calculating "day of" values and inserting them to a table for each iteration. But I suppose this wouldn't be inserting "all at once".... Still, if all you need that information is on the client side, you don't need to store them. You can present them by means of calculated fields. All you need is a one to many relationship from a "day-no" table to a "tasks" table.
      singulars
      1. PO
      1. USSertac Akyuz
    3. COwhat i what to do once in the year is something like below : procedure TPlaneamento.Button1Click(Sender: TObject); Var i j k m begin inherited; Year:=StrToInt(ano.Text); diasano.Text:= IntToStr( DaysInAYear(Year) ); m:=(FormatDateTime('dddd',Now)) for I := 1 to StrToInt(diasano.Text) do begin frmDados.Planeamento.Append; frmDados.Planeamento.FieldByName('month').value:=I; frmDados.Planeamento.FieldByName('dayofmonth').value:=I; frmDados.Planeamento.FieldByName('dayofmonth').value:=I; frmDados.Planeamento.FieldByName('dayofweek').value:=j; Thank´s
      singulars
      1. PO
      1. USml.
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload