Problems with INPUT, need some help

[Powersoft]

(07-13-2022 01:28 PM)matalog Wrote:  This works, the non-simple versions of Input isn't so simple.

Code:

EXPORT Test_Input()
BEGIN
  LOCAL jaar :=floor(Date);
  LOCAL maand:=floor((Date-floor(Date))*100);
  LOCAL dag  :=floor((Date*100-floor(Date*100))*100);
  LOCAL GMT  := -2; // Amsterdam at summertime
  INPUT({jaar,maand,dag,GMT},{"Year?","Month?","Day?","GMT?"});

  PRINT();
  PRINT("jaar:"+jaar);
  PRINT("maand:"+maand);
  PRINT("dag:"+dag);
  PRINT("GMT:"+GMT);
END;

Thanks, this is realy simple.