FUNCTION DateTimeStr (sysT AS SYSTEMTIME, DtFormat AS LONG,TmFormat AS LONG) AS STRING
  DIM zDate AS ASCIIZ * 32
  DIM zTime AS ASCIIZ * 32
  DIM DateFormat(13) AS LOCAL ASCIIZ * 32
  DIM TimeFormat(6) AS LOCAL ASCIIZ * 32

    DateFormat(1)  = "MM'/'dd'/'yy"           ' 02/18/01
    DateFormat(2)  = "MM'/'dd'/'yyyy"         ' 02/18/2001
    DateFormat(3)  = "MMM dd ''''yy"          ' Feb 18 '01
    DateFormat(4)  = "MMM d yyyy"             ' Feb 18 2001
    DateFormat(5)  = "MMMMM d',' yyyy"        ' February 18, 2001
    DateFormat(6)  = "ddd MM'/'dd'/'yy"       ' Sun 02/18/01
    DateFormat(7)  = "ddd MM'/'dd'/'yyyy"     ' Sun 02/18/2001
    DateFormat(8)  = "ddd MMM dd ''''yy"      ' Sun Feb 18 '01
    DateFormat(9)  = "ddd MMM d yyyy"         ' Sun Feb 18 2001
    DateFormat(10)  = "ddd MMM d yyyy"        ' Sun Feb 18 2001
    DateFormat(11) = "ddd',' dd MMM yyyy"     ' Sun, 18 Feb2001
    DateFormat(12) = "yyMMdd"                 ' 010218
    DateFormat(13) = "yyyyMMdd"               ' 20010218

    TimeFormat(1) = "HH':'mm"                 ' 15:18
    TimeFormat(2) = "HH':'mm':'ss"            ' 15:18:02
    TimeFormat(3) = "h':'mm tt"               ' 3:18 PM
    TimeFormat(4) = "h':'mm':'ss tt"          ' 3:18:02 PM
    TimeFormat(5) = "hh':'mm tt"              ' 03:18 PM
    TimeFormat(6) = "hh':'mm':'ss tt"         ' 03:18:02 PM

    IF DtFormat > 0 AND DtFormat < 14 THEN
        CALL GetDateFormat(%LOCALE_USER_DEFAULT, %NULL,  sysT, DateFormat(DtFormat), zDate, 32)
    END IF

    IF TmFormat > 0 AND TmFormat < 7 THEN
       CALL GetTimeFormat(%LOCALE_USER_DEFAULT, %NULL, sysT, TimeFormat(TmFormat), zTime, 32)
    END IF

    IF DtFormat > 0 AND TmFormat > 0 THEN
        FUNCTION = zDate + "  " + zTime
      ELSE
        IF DtFormat& > 0 THEN
           FUNCTION = zDate
        ELSE
            FUNCTION = zTime
        END IF
    END IF

END FUNCTION