Hallo zusammen
Ich bin ganz neu hier und habe eine Frage.
Ich habe ein Programm in Delphi geschrieben bei dem ich
mit der aktuellen Jahreszahl (2003) rechnen muss/möchte.
Momentan habe ich es so gelöst das der User selber das Auktuelle
Jahr eingeben muss. Dies würde ich aber gerne automatisch ermitteln
lassen von Delphi.
Ich habe jetzt schon etwas länger gesucht aber nichts gefunden was
mir hilft bzw womit ich zurecht komme.
Könnt ihr mir da helfen?
Ich poste hier mal den ProgrammCode von dem Button wo es rein soll.
Code:
//Rechnen button
procedure TForm1.Button1Click(Sender: TObject);
var jaktuell,alter,tag,ghal:integer;
gott:string;
mode:byte;
begin
ghal := 0;
jaktuell := StrToInt(edit2.Text);
alter := StrToInt (Edit1.Text);
tag := StrToInt(edit3.text);
gott := ComboBox1.Text;
if alter = 0
then
begin
showmessage ('Bitte geben sie Ihr gewünschtes Alter ein!');
end
else
begin
jaktuell := jaktuell-alter;
ghal := jaktuell-1973;
if gott = 'Ihre Gottheit'
then
begin
showmessage ('Bitte wählen Sie eine Gottheit aus.');
end
else
begin
if ghal > 0
then
begin
Label1.Caption := 'Sie sind am '+IntToStr(tag)+'.'+' '+gott+'.'+' '+IntToStr(ghal)+' nach Hal geboren.';
end
else
begin
gHal := ghal*(-1);
Label1.Caption := 'Sie sind am '+IntToStr(tag)+'.'+' '+gott+'.'+' '+IntToStr(ghal)+' vor Hal geboren.';
end;
end;
end;
end;
jAktuell soll die Aktuelle Jahreszahl darstellen.
Ich hoffe ihr könnt mir da weiterhelfen =)
Gruss Deven