>>Hi Nadya,
>>
>>this may give you some ideas
>>
>>function VariableToExcel(Content, FieldType, CellReference)
>>
>> local Success
>> Success = TRUE
>>
>> local x, FormatMask
>>
>> FieldType = iif(empty(m.FieldType), vartype(m.Content), m.FieldType)
>> x = null
>>
>> do case
>> case isnull(m.Content)
>>
>> case inlist(m.FieldType, T_CHARACTER, T_MEMO)
>> x = ['] + rtrim(m.Content)
>>
>> case inlist(m.FieldType, T_DATE)
>> x = iif(empty(m.Content), '', '=date(' + transform(dtos(m.Content), '@R 9999,99,99') + ')')
>> FormatMask = 'dd/mm/yyyy'
>>
>> case inlist(m.FieldType, T_DATETIME)
>> x = ;
>> iif(empty(m.Content), ;
>> '', ;
>> '=date(' + transform(dtos(m.Content), '@R 9999,99,99') + ')' ;
>> + '+time(' + transform(right(ttoc(m.Content,1),6), '@R 99,99,99') + ')' ;
>> )
>> FormatMask = 'dd/mm/yyyy hh:mm:ss'
>>
>> case inlist(m.FieldType, T_CURRENCY)
>> x = m.Content
>> FormatMask = '#,###.00' + '_);[Red](' + '#,###.00' + ')'
>>
>> case inlist(m.FieldType, 'I')
>> x = m.Content
>> FormatMask = '#,###' + '_);[Red](' + '#,###' + ')'
>>
>> case inlist(m.FieldType, T_NUMERIC, T_DOUBLE)
>> x = m.Content
>> FormatMask = '#,###.00' + '_);[Red](' + '#,###.00' + ')'
>>
>> case inlist(m.FieldType, T_LOGICAL)
>> x = iif(m.Content, 'TRUE', 'FALSE')
>>
>> endcase
>>
>> do case
>> case (vartype(m.CellReference) <> T_OBJECT)
>> Success = FALSE
>>
>> case isnull(m.x)
>> x = ''
>>
>> otherwise
>> with m.CellReference
>> .Value = m.x
>>
>> if( !empty(m.FormatMask) )
>> .NumberFormat = m.FormatMask
>> endif
>> endwith
>> endcase
>>
>> return m.Success
>>endfunc
>>*--------------------------------------------------------------------------
>>>
>Very nice. Now I need SSN as 000-00-0000, but it doesn't work. What should I do?
If it's numeric
FormatMask = '000-00-0000'
Gregory
