DEF VAR lvDate1 AS DATE NO-UNDO.
DEF VAR lvDate2 AS DATE NO-UNDO.
DEF VAR lvDifference AS INT NO-UNDO.
ASSIGN lvDate1 = TODAY
lvDate2 = DATE(10,13,1999)
lvDifference = lvDate1 - lvDate2.
MESSAGE lvDate2 "is":L lvDifference "days before":L lvDate1 ".":U
VIEW-AS ALERT-BOX INFORMATION.