is it possible to count with date in MidletPascal. ex (delphi code)
Edit1.text := DateToStr (date - 25);