datums vergelijken is Delphi6

[anoniem]

Ik heb 2 datums, ik wil hierbij kijken of de ene datum minstens 18 jaar groter is dan de ander (zodat iemand die nog geen 18 jaar is zich niet in kan schrijven) maar ik weet niet hoe ik deze moet vergelijken (ik haal mijn data uit een gewoon tEdit veld, en deze is van het type tDate) kan iemand mij hiermee helpen? alain dacier

[anoniem]

[quote:23f718a853="20010196dacier"]Ik heb 2 datums, ik wil hierbij kijken of de ene datum minstens 18 jaar groter is dan de ander (zodat iemand die nog geen 18 jaar is zich niet in kan schrijven) maar ik weet niet hoe ik deze moet vergelijken (ik haal mijn data uit een gewoon tEdit veld, en deze is van het type tDate)[/quote:23f718a853] Delphi heeft hiervoor de unit [color=blue:23f718a853]DateUtils[/color:23f718a853] waarin functies staan voor het werken met datum/tijd. [color=blue:23f718a853]YearSpan[/color:23f718a853] is de functie die je nodig hebt.

[anoniem]

THANX !!!

[anoniem]

ik heb ook nog een andere oplossing gevonden, namelijk het gebruik maken van de DecodeDate en EncodeDate functies: gebdatum := strtodate(label1.caption); *DecodeDate(gebdatum, Jaar, Maand, Dag); Jaar1 :=Jaar1 + 18; *gebdatum := EncodeDate(Jaar, Maand, Dag); if (gebdatum > aanmelddatum) then begin invoercorrect := false; (boolean) foutveld := 'Geboortedatum en Aanmelddatum'; (string) end; het is wat meer werk, maar hiermee kun je wel nog veel verdere bewerkingen uitvoeren ! alain