Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.95/21: Рейтинг темы: голосов - 21, средняя оценка - 4.95
2 / 1 / 2
Регистрация: 26.08.2015
Сообщений: 96

Дата прописью

26.02.2020, 13:11. Показов 4884. Ответов 28
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Преобразую число в текст так:

' Дата прописью
Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub ЧислоЦифры_Change()
Dim c As Currency
    On Error GoTo 999
    c = ЧислоЦифры.Text
    Me.ЧислоБуквы = funRusMoney(c, False) 'Обычная пропись
    Exit Sub
999:
    Me.ЧислоБуквы = "Введите правильно дату!"
End Sub
Нужно чтобы дату типа:
25.02.2020
преобразовывал в дату прописью:
Двадцать пятое февраля две тысячи двадцатого

помогите ПЛИССС
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
26.02.2020, 13:11
Ответы с готовыми решениями:

Access запрос Есть два поля : дата начало и дата окончания
Есть два поля : дата начало и дата окончания. Если дата находиться в диапазоне то нужно выводить в поле "важность" запись...

дата рождения = дата посещению
Добрый день! Пытаюсь сделать вот такой запрос выбрать и вывести только тех у кого совпадают даты пример ФИО дата...

Как разделить колонку с форматом Дата/время на две - Дата и время
Здравствуйте. Подскажите пожалуйста, как разделить колонку с форматом Дата/время на две - Дата и время Задача выглядит следующим...

28
Модератор
Эксперт MS Access
6231 / 2909 / 707
Регистрация: 12.06.2016
Сообщений: 7,839
27.02.2020, 01:31
Студворк — интернет-сервис помощи студентам
Кто "мог бы"? Я?

Нуб ведь твердо уверен, что это не его случай.

А подумать чуть-чуть нуб не хочет?
0
Модератор
Эксперт MS Access
6231 / 2909 / 707
Регистрация: 12.06.2016
Сообщений: 7,839
27.02.2020, 01:49
Лучший ответ Сообщение было отмечено ibrahimveg как решение

Решение

ibrahimveg
Вложения
Тип файла: rar ДатаПрописью.rar (9.3 Кб, 28 просмотров)
1
2 / 1 / 2
Регистрация: 26.08.2015
Сообщений: 96
27.02.2020, 02:15  [ТС]
спасибо. хотел именно такое короткое

ато уже забивал долгое решение типа

'Выделял из числа День
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub ДоговорДатаПрописью_Click()
[д] = Day([ДоговорДатаЦифры])
End Sub
 
'тут вместо числа буквы
Private Sub Кнопка431_Click()
If [д] = "1" Then
[дПрописью] = "Первое"
ElseIf [д] = "2" Then
[дПрописью] = "Второе"
ElseIf [д] = "3" Then
[дПрописью] = "Третье"
.......
End If
End Sub
и далее после таких же танцев с бубном с месяцами хотел делать что то типа слияния значений с цифрами со значениями с месяцами.

просто я нуб как писал. СПАСИБО
0
Модератор
Эксперт MS Access
6231 / 2909 / 707
Регистрация: 12.06.2016
Сообщений: 7,839
27.02.2020, 02:33
ibrahimveg,

Пожалуйста.

А ведь я предложила это решение через несколько минут после начала темы,
в первом же ответе темы #2.
1
Эксперт MS Access
 Аватар для alvk
7459 / 4592 / 302
Регистрация: 12.08.2011
Сообщений: 14,383
27.02.2020, 12:19
Цитата Сообщение от ibrahimveg Посмотреть сообщение
мог бы и посмотреть таблицу и помочь нубу
я думаю куча выложенного кода и примеров - это не просто помощь нубу, это уже разжевали и в рот положили.
Глотать сами умеете?
0
Модератор
Эксперт MS Access
6231 / 2909 / 707
Регистрация: 12.06.2016
Сообщений: 7,839
27.02.2020, 12:21
alvk,

Не по теме:

Товарищ себя нубом настойчиво именует с 2015 года.
Видимо, в таких случаях получается уже не просто нуб, это уже нуб нубом.

0
2 / 1 / 2
Регистрация: 26.08.2015
Сообщений: 96
28.02.2020, 15:18  [ТС]
Ну с 2015 года я и запостил всего 4 темы. Так что с моим уровнем потребностей нубство норм уровень. Когда ты написал образец таблицы и код - то код же тут на сайте урезается и я не мог понять куда именно привязку к какому окошку формы делать.
0
Модератор
Эксперт MS Access
6231 / 2909 / 707
Регистрация: 12.06.2016
Сообщений: 7,839
28.02.2020, 15:32
Цитата Сообщение от ibrahimveg Посмотреть сообщение
Когда ты написал
Читайте, в конце концов, мои сообщения.
Какие там окончания у глаголов?

Цитата Сообщение от Capi Посмотреть сообщение
...Затратила...
Цитата Сообщение от Capi Посмотреть сообщение
...предложила...
Какое, в самом деле, "написал"?
0
Модератор
Эксперт MS Access
6231 / 2909 / 707
Регистрация: 12.06.2016
Сообщений: 7,839
28.02.2020, 15:34
Цитата Сообщение от ibrahimveg Посмотреть сообщение
код же тут на сайте урезается
Что за чепуха? Ничего не урезается.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
28.02.2020, 15:34

Сумма прописью
Кто сталкивался с такой проблемой? Есть функция СуммаПрописью, которая дана в Акцессе в базах данных примеров (например в БД 'Борей')....

Стоимость прописью
Здравствуйте многоуважаемые! Подскажите пожалуйста, как в приведенном коде убрать запятую и написать копейки цифрами. Этот код взял из...

Сумма прописью
Извините, за избитый вопрос, как в отчете вывести сумму прописью? Спасибо

Числа прописью
Добрый день! Как можно сделать в аксесс при вормировании запроса число прописью? (да и вообще как реализовать в БД данную возможнсть)

Месяц прописью
Нужно создать запрос через построитель, который будет выводить данные за месяц декабрь прописью. Прописываю Месяц: MonthName(Month())...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
29
Ответ Создать тему
Новые блоги и статьи
сукцессия 33. открытые вопросы от клауде
anaschu 19.07.2026
"Что накопилось за эту часть А — тринадцать правок, из которых шесть пришли из ваших вопросов и каждая оказалась реальной ошибкой, а не калибровкой: односторонний симбиоз, отсутствующий листопад,. . .
32 сукцессия
anaschu 19.07.2026
сукцессия 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не «подкручивает» сходимость —. . .
сукцессия 31: модель микоризы - это модель ещё нескольких явлений, социальных и экономических
anaschu 18.07.2026
Теория «Всего»: апдейт v1. 1. 2 — 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не. . .
сукцессия 30. Массив проверяющих друг друга моделей
anaschu 18.07.2026
Архитектура сети взаимопроверяющих моделей микоризной сукцессии (v2. 0) Развитие тензорного ОДУ-ядра и создание кросс-платформенного калибровочного полигона Уважаемые коллеги! В продолжение. . .
Грибы - это женщины, деревья - это мужчины. Анти инь янь для союза мужчины и женщины.
anaschu 18.07.2026
ГЛАВНЫЙ НАУЧНО-ФИЛОСОФСКИЙ ВЫВОД: Сексуально-Репродуктивный Капитализм против Государства Моногамии Коллеги, мы вышли на финишную прямую 20-мерного ОДУ-моделирования вековой сукцессии (ветка. . .
Текстовый слайдер с нумерацией страниц и кроссбраузерность.
russiannick 18.07.2026
Один мой друг написал текстовый слайдер с нумерацией страниц. Сегодня я расскажу как он умудрился подружить его с кроссбраузерностью. Очевидно сложно угодить с шириной каждому браузеру. Один крадет. . .
Грибы - это мемы, дерево - это человек. Применение микоризной модели к теории меметики Докинза.
anaschu 18.07.2026
Меметический изоморфизм теории «всего»: Грибная сукцессия как модель эволюции идей Докинза Базовый код системы ОДУ микоризной сукцессии описывает не просто биологию, а универсальную. . .
Грибы - это корпорации, деревья - это государства. Механизм массонского захвата власти
anaschu 18.07.2026
Макроэкономический изоморфизм теории «всего»: Грибная сукцессия как модель транснационального капитализма Базовый код системы ОДУ микоризной сукцессии описывает не просто биологию, а. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru