Scott Auge - 2008-10-06

Correct code to use:

FUNCTION SetVersion RETURNS DECIMAL:

DEFINE VARIABLE cVersion AS CHARACTER NO-UNDO.

ASSIGN cVersion = STRING(YEAR(TODAY), "9999")
+ STRING(MONTH(TODAY), "99")
+ STRING(DAY(TODAY), "99")
+ "."
+ STRING(TIME).

RETURN DECIMAL(cVersion).

END. /* FUNCTION SetVersion */

Format in the DB
format "99999999.99999"