Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: час
ползовать


Me.дата = Date
DoCmd.Maximize
e(1) = "один"
e(2) = "два"
e(3) = "три"
e(4) = "четыре"
e(5) = "пять"
e(6) = "шесть"
e(7) = "семь"
e(8) = "восемь"
e(9) = "девять"
de(0) = "десять"
de(1) = "одиннадцать"
de(2) = "двенадцать"
de(3) = "тринадцать"
de(4) = "четырнадцать"
de(5) = "пятнадцать"
de(6) = "шестнадцать"
de(7) = "семнадцать"
de(8) = "восемнадцать"
de(9) = "девятнадцать"
d(2) = "двадцать"
d(3) = "тридцать"
d(4) = "сорок"
d(5) = "пятьдесят"
d(6) = "шестьдесят"
d(7) = "семьдесят"
d(8) = "восемьдесят"
d(9) = "девяносто"

s(1) = "сто"
s(2) = "двести"
s(3) = "триста"
s(4) = "четыреста"
s(5) = "пятьсот"
s(6) = "шестьсот"
s(7) = "семьсот"
s(8) = "восемьсот"
s(9) = "девятьсот"
t(1) = "одна тысяча"
t(2) = "две тысячи"
t(3) = "три тысячи"
t(4) = "четыре тысячи"
t(5) = "пять тысяч"
t(6) = "шесть тысяч"
t(7) = "семь тысяч"
t(8) = "восемь тысяч"
t(9) = "девять тысяч"
dt(0) = "десять тысяч"
dt(1) = "одиннадцать тысяч"
dt(2) = "двенадцать тысяч"
dt(3) = "тринадцать тысяч"
dt(4) = "четырнадцать тысяч"
dt(5) = "пятнадцать тысяч"
dt(6) = "шестнадцать тысяч"
dt(7) = "семнадцать тысяч"
dt(8) = "восемнадцать тысяч"
dt(9) = "девятнадцать тысяч"
dtt(2) = "двадцать"
dtt(3) = "тридцать"
dtt(4) = "сорок"
dtt(5) = "пятьдесят"
dtt(6) = "шестьдесят"
dtt(7) = "семьдесят"
dtt(8) = "восемьдесят"
dtt(9) = "девяносто"


st(1) = "сто"
st(2) = "двести"
st(3) = "триста"
st(4) = "четыреста"
st(5) = "пятьсот"
st(6) = "шестьсот"
st(7) = "семьсот"
st(8) = "восемьсот"
st(9) = "девятьсот"

mil(1) = "один миллион"
mil(2) = "два миллиона"
mil(3) = "три миллиона"
mil(4) = "четыре миллиона"
mil(5) = "пять миллионов"
mil(6) = "шесть миллионов"
mil(7) = "семь миллионов"
mil(8) = "восемь миллионов"
mil(9) = "девять миллионов"

dmil(0) = "десять миллионов"
dmil(1) = "одиннадцать миллионов"
dmil(2) = "двенадцать миллионов"
dmil(3) = "тринадцать миллионов"
dmil(4) = "четырнадцать миллионов"
dmil(5) = "пятнадцать миллионов"
dmil(6) = "шестнадцать миллионов"
dmil(7) = "семнадцать миллионов"
dmil(8) = "восемнадцать миллионов"
dmil(9) = "девятнадцать миллионов"
End Sub


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.