vhLib.Macro %RegisteredObject,%XML.Adaptor 0 %Library.String %Library.String Sys.pxCodeAttrOmsVal 1 KlantNr,Array Gebruiker,Email,LaatstGebruikt 700) Do . Set Fmt="nooit gebruikt" Else If ($H-LaatstGebruikt)<30 Do . Set Fmt=($H-LaatstGebruikt)_" dagen" Else If ($H-LaatstGebruikt)<365 Do . Set Fmt=$J(($H-LaatstGebruikt)/30,0,0) . Set Fmt=Fmt_$S(Fmt=1:" maand",1:" maanden") Else Do . Set Fmt=$J(($H-LaatstGebruikt)/365,0,0) . Set Fmt=Fmt_$S(Fmt=1:" jaar",1:" jaren") Set ..LaatstGebruikt=##class(Sys.pxCodeAttrOmsVal).Create($zdt(LaatstGebruikt,8,2),Fmt) ]]>