>Can anybody help me to create a function that returns the time elapsed since midnight in HH:MM:SS and to midnight in the same format.

And to go to midnight:

FUNCTION midnight
LOCAL nSecsMidNight, nHours, nMinutes, nSeconds, cElapsed
nSecsMidNight = 86400 - SECONDS()
nHours = INT(nSecsMidNight/3600)
nMinutes = INT((nSecsMidNight-nHours*3600)/60)
nSeconds = MOD(nSecsMidNight,60)
cElapsed = TRANSFORM(nHours,"@L 99") + ":" + ;
           TRANSFORM(nMinutes,"@L 99") + ":" + ;
           TRANSFORM(nSeconds,"@L 99")
RETURN cElapsed