To List the Date in Words

Question

hi mates
i need to get the date from the user and display the date in words. without using any FM.
can any one guide me. thanks in advance.
regards
mano
Edited by: manoj murugesan on Mar 20, 2008 3:11 PM

Answer 1

here you go
DATA:
  day_spelt(255),
  year_spelt(255).
DATA:
  date_suf(2),
  year_stuf LIKE spell,
  dt_w_suff(4),
  out(100),
  month(15),
  it_month LIKE STANDARD TABLE OF month.
DATA ldate(20).
PARAMETERS: my_date LIKE sy-datum DEFAULT sy-datum.
START-OF-SELECTION.
  PERFORM build_month.
  READ TABLE it_month INTO month INDEX my_date+4(2).
  PERFORM make_day_words  USING my_date+6(2) day_spelt.
  PERFORM make_year_words USING my_date(4) year_spelt.
  CONCATENATE year_spelt month day_spelt INTO out
    SEPARATED BY space.
  WRITE:/ out.
*&      Form  make_year_words
FORM make_year_words USING    p_year
                              p_spelt.
  DATA:
    cent_word(40),
    tens_word(40),
    unit_word(40).
  DATA:
    BEGIN OF year_rec,
      thou,
      hund,
      tens,
      unit,
    END OF year_rec.
  year_rec = p_year.
  CASE year_rec-tens.
    WHEN  '0'.
      IF year_rec-unit = '0'.
        CLEAR tens_word.
      ELSE.
        tens_word = 'and'.
      ENDIF.
    WHEN  '1'.
      CASE year_rec-unit.
        WHEN '0'. tens_word = 'Ten'.
        WHEN '1'. tens_word = 'Eleven'.
        WHEN '2'. tens_word = 'Twelve'.
        WHEN '3'. tens_word = 'Thirteen'.
        WHEN '4'. tens_word = 'Fourteen'.
        WHEN '5'. tens_word = 'Fifteen'.
        WHEN '6'. tens_word = 'Sixteen'.
        WHEN '7'. tens_word = 'Seventeen'.
        WHEN '8'. tens_word = 'Eighteen'.
        WHEN '9'. tens_word = 'Nineteen'.
      ENDCASE.
    WHEN '2'. tens_word = 'Twenty'.
    WHEN '3'. tens_word = 'Thirty'.
    WHEN '4'. tens_word = 'Forty'.
    WHEN '5'. tens_word = 'Fifty'.
    WHEN '6'. tens_word = 'Sixty'.
    WHEN '7'. tens_word = 'Seventy'.
    WHEN '8'. tens_word = 'Eighty'.
    WHEN '9'. tens_word = 'Ninety'.
  ENDCASE.
  IF year_rec-tens NE '1'.
    CASE year_rec-unit.
      WHEN '1'. unit_word = 'One'.
      WHEN '2'. unit_word = 'Two'.
      WHEN '3'. unit_word = 'Three'.
      WHEN '4'. unit_word = 'Four'.
      WHEN '5'. unit_word = 'Five'.
      WHEN '6'. unit_word = 'Six'.
      WHEN '7'. unit_word = 'Seven'.
      WHEN '8'. unit_word = 'Eight'.
      WHEN '9'. unit_word = 'Nine'.
    ENDCASE.
  ENDIF.
  CASE year_rec-hund.
    WHEN '0'.
      cent_word = 'Two Thousand'.
    WHEN '1'.
      cent_word = 'Twenty One Hundred'.
    WHEN '9'.
      cent_word = 'Nineteen Hundred'.
    WHEN '8'.
      cent_word = 'Eighteen Hundred'.
  ENDCASE.
  CONCATENATE cent_word tens_word INTO p_spelt
    SEPARATED BY space.
  IF NOT unit_word IS INITIAL.
    CONCATENATE p_spelt unit_word INTO p_spelt
      SEPARATED BY space.
  ENDIF.
ENDFORM.                    " make_year_words
*&      Form  make_day_words
FORM make_day_words USING    p_day
                             p_day_spelt.
  DATA: wk_word(20).
  CASE p_day(1).
    WHEN  '1'.
      CASE p_day+1(1).
        WHEN '0'. p_day_spelt = 'Ten'.
        WHEN '1'. p_day_spelt = 'Eleven'.
        WHEN '2'. p_day_spelt = 'Twelve'.
        WHEN '3'. p_day_spelt = 'Thirteen'.
        WHEN '4'. p_day_spelt = 'Fourteen'.
        WHEN '5'. p_day_spelt = 'Fifteen'.
        WHEN '6'. p_day_spelt = 'Sixteen'.
        WHEN '7'. p_day_spelt = 'Seventeen'.
        WHEN '8'. p_day_spelt = 'Eighteen'.
        WHEN '9'. p_day_spelt = 'Nineteen'.
      ENDCASE.
      EXIT.
    WHEN OTHERS.
      CASE p_day+1(1).
        WHEN '1'. p_day_spelt = 'First'.
        WHEN '2'. p_day_spelt = 'Second'.
        WHEN '3'. p_day_spelt = 'Third'.
        WHEN '4'. p_day_spelt = 'Fouth'.
        WHEN '5'. p_day_spelt = 'Fifth'.
        WHEN '6'. p_day_spelt = 'Sixth'.
        WHEN '7'. p_day_spelt = 'Seventh'.
        WHEN '8'. p_day_spelt = 'Eighth'.
        WHEN '9'. p_day_spelt = 'Nineth'.
        WHEN '0'. CLEAR p_day_spelt.
      ENDCASE.
  ENDCASE.
  CASE p_day(1).
    WHEN '0'. EXIT.
    WHEN '2'. wk_word = 'Twenty'.
    WHEN '3'. wk_word = 'Thrity'.
  ENDCASE.
  CONCATENATE wk_word p_day_spelt INTO p_day_spelt
    SEPARATED BY space.
ENDFORM.                    " make_day_words
*&      Form  build_month
FORM build_month.
  month = 'Janurary'. APPEND month TO it_month.
  month = 'Feburary'. APPEND month TO it_month.
  month = 'March'. APPEND month TO it_month.
  month = 'April'. APPEND month TO it_month.
  month = 'May'. APPEND month TO it_month.
  month = 'June'. APPEND month TO it_month.
  month = 'July'. APPEND month TO it_month.
  month = 'August'. APPEND month TO it_month.
  month = 'September'. APPEND month TO it_month.
  month = 'October'. APPEND month TO it_month.
  month = 'November'. APPEND month TO it_month.
  month = 'December'. APPEND month TO it_month.
ENDFORM.                    " build_month