String oder Integer in Word umwandeln

[shadowman1985]

Hallo,

bin langsam wirklich am verzweifeln. Weder über Google noch über diverse Delphiforen komme ich zu einer Lösung. Ich hoffe ihr könnt mir jetzt helfen, daher schildere ich mal mein Problem:

Ich möchte ein Diagramm erstellen mit der Komponente TChart. Es soll für jeden Tag des Monats ein Balken erstellt werden. Die Anzahl der Tages des Monats hol ich mir über "DaysInAMonth(2006,02)".

Da liegt auch schon mein Problem. Da ich mein Programm nicht jeden Monat umschreiben will, soll er die Tagesanzahl des Monats automatisch errechnen, so stelle ich mir das vor:

Code:

Var
year,month:string;
days_of_month:integer;

begin

month:= FormatDateTime('mm', now);
year:= FormatDateTime('yyyy', now);

days_of_month := DaysInAMonth(year,month); //PROBLEM: INKOMPATIBLE TYPEN WORD / STRING

//...Hier unten wird dann das TChart erstellt
for i:=1 to days_of_month do
begin
....
end;

end;

Das Problem ist so simpel wie auch problematisch, da ich keine Funktion á StringToWord finden kann. Gibt es keine Möglichkeit die Tagesanzahl des aktuellen Monats "dynamisch" einzulesen?

PS: Also soweit bin ich bereits mit der Umwandlung: (Mit Hilfe von MonthDays bräuchte ich nur noch das Jahr zum "WORD" machen :-(

Code:

anz_tage := MonthDays[IsLeapYear(FormatDateTime('yyyy', now))][StrToInt(FormatDateTime('mm', now))];

(Monat=OK | JAHR: Inkompatible Typen Word/String)

Ich danke euch schonmal!

[Matze]

Hi,

einen String müsstest du auch mittels StrToInt in einen Word umwandeln können.

[shmia]

Du brauchst die procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);!

Delphi-Quellcode:

var 
   Year, Month, Day: Word;
  days_of_month:integer; 
begin
   DecodeDate(SysUtils.Date,Year, Month, Day);
  days_of_month := DaysInAMonth(year,month);

[Amateurprofi]

Delphi-Quellcode:

PROCEDURE TMain.Test;
var y,m,d,daysinmonth:word;
begin
   DecodeDate(date,y,m,d);
   daysinmonth:=MonthDays[IsLeapYear(y), m];
end;

[shadowman1985]

Manchmal sieht man den Wald vor lauter Bäumen nicht! :-)

Ich danke euch allen, habs nun durch eure Hilfe geschafft! War wirklich am verzweifeln! DANKE!