Обработка "Дата прописью"

Небольшая обработка перевода "даты" в текст прописью.

Обработка формирует дату пропись в именительном и родительном падеже.

Может кому и пригодится.

21 Comments

  1. Leoway

    Ты первый 🙂

    Reply
  2. Ёпрст

    Не рабочий алгоритм..

    http://i078.radikal.ru/0908/ff/219d6ffa6977.jpg

    Reply
  3. Арчибальд

    (2) Тогда что, тапки забирает Leoway ?

    Reply
  4. Ёпрст

    (3) Его поделка у меня не заработала… обновлять платформу лень..

    Reply
  5. magvay_k

    Там в принципе только 1900 — 2000 года учтены, смысла в других годах не вижу

    Reply
  6. magvay_k

    Подправил с третьим числом месяца.

    Reply
  7. magvay_k

    Подправил с третьим числом месяца.

    Reply
  8. GSoft

    (0) к (2) ну что ж Вы так мой день рождения невзлюбили))))))))

    Reply
  9. Ёпрст

    (8) На а ЭТО ?

    «второе февраля одна тысяча девятьсот !!!!!!!!!!!!!пятьдесяТ!!!!!!!!!! года»

    Reply
  10. Ёпрст

    +10 и так со всеми кратными 10

    Reply
  11. Ёпрст

    +11

    первое января две тысячи надцатого года

    Reply
  12. magvay_k

    Спасибо, за анализ. Посмотрю, подправлю.

    Reply
  13. magvay_k

    Исправил косяк с годами, кратным 10

    Reply
  14. Ёпрст

    01.01.2220 <> первое января две тысячи двадцатого года

    Reply
  15. Ёпрст

    01.01.1900<>первое января одна тысяча девятьсот года

    Reply
  16. magvay_k

    (16) 1900 года исправил.

    (15) В данной обработке диапазон годов от 1900 до 2099. Далее просто делать не стал, смысла не вижу.

    Reply
  17. Ёпрст

    (17) Почему ? 2100 год не за горами..

    Reply
  18. Ёпрст

    +18 а так, вся универсальность коту под хвост..

    ЗЫ: Вот на клюшках я делал для всех дат….

    Reply
  19. Boroda

    Отлично всё получается, за исключением, разве что, «двадцать третьее» пишет. Надо посмотреть в модуле, может там что не учтено….

    Reply
  20. Larkin

    Вот реально — такой «+» тебе в карму!

    Reply
  21. mrWatson

    (20)

    Чтоб 23 заработало надо заменить

    Если Прав(День_П, 1) = 3 Тогда

    на

    Если День_П % 10 = 3 Тогда

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *