Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Kunoishi,
10. Dez 2009
da ich mit den Berechnungen des Geburtstags noch nicht so recht weiter komme, habe ich mal umgedacht und mein Problem anderes angefast. Wo ich ein wenig besser klarkomme und eigentlich schon ein Ergebnis habe.
Hierzu verwende ich ein Stringgrid (Dazu hatte ich was hier im Forum gefunden)
procedure TForm.StringGridKeyPress(Sender: TObject;
var Key: Char);
begin
with StringGrid do
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Kunoishi,
28. Okt 2009
werde ich mal durchforsten, ich hoffe ich werde damit klar kommen :-)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Kunoishi,
28. Okt 2009
wie kann ich aber den Wert bei dem EncodeDate();
von meiner MaskEdit zuweisen?
Das wäre hier mein Problem.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Kunoishi,
28. Okt 2009
Ich hatte hier mal einen Quellcode gefunden zur berechnung des Geburtsdatums
function Age(BirthDate: TDate): integer;
var y1,y2,m1,m2,d1,d2: Word;
begin
SysUtils.DecodeDate(date,y1,m1,d1);
SysUtils.DecodeDate(BirthDate,y2,m2,d2);
Result := ((y1 * 10000 + m1 * 100 + d1)
- (y2 * 10000 + m2 * 100 + d2)) div 10000;
end;