INT64 ( expression )
|
DEFINE VARIABLE myint AS INTEGER NO-UNDO
INITIAL 2000000000 FORMAT "->>,>>>,>>>,>>>". DEFINE VARIABLE myint64 AS INT64 NO-UNDO INITIAL 333444555666 FORMAT "->>,>>>,>>>,>>>,>>>". DEFINE VARIABLE mychar AS CHARACTER NO-UNDO INITIAL "2234.3". DEFINE VARIABLE mydec AS DECIMAL NO-UNDO INITIAL "240,234.05". DEFINE VARIABLE mybool AS LOGICAL NO-UNDO INITIAL TRUE. DEFINE VARIABLE mydate AS DATE NO-UNDO INITIAL 01/01/06. DEFINE VARIABLE myhdl AS HANDLE NO-UNDO. DEFINE FRAME x WITH TITLE "emptyframe". myhdl = FRAME x:handle. MESSAGE "integer of integer expression is" INTEGER(myint). MESSAGE "integer of int64 expression is" INTEGER(myint64 - 333000000000). MESSAGE "integer of int64 >2gig is" INTEGER(myint64). MESSAGE "integer of char is" INTEGER(mychar). MESSAGE "integer of dec is" INTEGER(mydec). MESSAGE "integer of bool is" INTEGER(mybool). MESSAGE "integer of date is" INTEGER(mydate). MESSAGE "integer of handle is" INTEGER(myhdl). MESSAGE " ". MESSAGE "int64 of integer expression is" INT64(myint). MESSAGE "int64 of int64 expression is" INT64(myint64 - 333000000000). MESSAGE "int64 of int64 >2gig is" INT64(myint64). MESSAGE "int64 of char is" INT64(mychar). MESSAGE "int64 of dec is" INT64(mydec). MESSAGE "int64 of bool is" INT64(mybool). MESSAGE "int64 of date is" INT64(mydate). MESSAGE "int64 of handle is" INT64(myhdl). MESSAGE " ". |