Excel uploading date format

          if l_wa_field-value eq 'ZFIRST_REQ_DATE'.
            clear lv_length.
            lv_length = strlen( l_wa_excel-value ).
            case lv_length.
              when 8.
                concatenate l_wa_excel-value+4(4) '0' l_wa_excel-value+0(1) '0' l_wa_excel-value+2(1)
                into l_wa_excel-value.
              when 9.
                search l_wa_excel-value for '/'.
                if sy-subrc eq 0.
                  case sy-fdpos.
                    when 1.
                      concatenate l_wa_excel-value+5(4) '0' l_wa_excel-value+0(1) l_wa_excel-value+2(2)
                      into l_wa_excel-value.
                    when 2.
                      concatenate l_wa_excel-value+5(4)  l_wa_excel-value+0(2) '0' l_wa_excel-value+3(1)
                      into l_wa_excel-value.
                    when others.
                  endcase.
                endif.
              when 10.
                concatenate l_wa_excel-value+6(4) l_wa_excel-value+0(2) l_wa_excel-value+3(2)
                into l_wa_excel-value.
              when others.
            endcase.
          endif.