DIM TimeNow AS DATETimeNow = GETCURRDATE()StringTime = FORMATTIME (TimeNow, "HH:mm:ss tt")MESSAGE StringTime