[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: Date format in JSON

[Torben]

Add your own datatypes. Fx CLASS Json.MyJson INHERITS JsonObject: METHOD PUBLIC LOGICAL AddMyDate( INPUT propertyName AS CHARACTER, INPUT dValue AS DATE): DEFINE VARIABLE cDate AS CHARACTER NO-UNDO. cDate = STRING(dValue, "99/99/9999"). // Your date formatting to string. RETURN THIS-OBJECT:Add(propertyName, cDate). END METHOD. METHOD PUBLIC DATE GetMyDate( INPUT propertyName AS CHARACTER): DEFINE VARIABLE cDate AS CHARACTER NO-UNDO. cDate = THIS-OBJECT:GetCharacter(propertyName). RETURN DATE(cDate). // YOur conversion from string to date END METHOD. END CLASS.

Continue reading...