home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SOURCE / FUNCTION / VALBLANK.PRG < prev    next >
Text File  |  1994-06-10  |  542b  |  26 lines
  1. //────────────────────────────────────────────────────────────────────────────//
  2.  
  3. function uValBlank( uValue )
  4.  
  5.    local cType := ValType( uValue )
  6.    local uResult
  7.  
  8.    do case
  9.       case cType $ "CM"
  10.        uResult = Space( Len( uValue ) )
  11.  
  12.       case cType == "N"
  13.        uResult =  uValue - uValue
  14.  
  15.       case cType == "L"
  16.        uResult = .f.
  17.  
  18.       case cType == "D"
  19.        uResult = CToD( "  -  -  " )
  20.  
  21.    endcase
  22.  
  23. return uResult
  24.  
  25. //────────────────────────────────────────────────────────────────────────────//
  26.