---

Således kan du splitte en TDate o i år, måned og dag.

procedure TForm1.Button1Click(Sender: TObject);
begin
DecodeDate(Date,Xyr,Xmo,Xday);
B1.Caption:=IntToStr(Xyr);
B2.Caption:=IntToStr(Xmo);
B3.Caption:=IntToStr(Xday);
end;

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.