| Вопрос: как можно удалить точки в дате | Добавлено: 24.02.07 00:14 |
Автор вопроса:  Stepan
|
|
Подскажите пожалуйста как можно удалить точки в дате
К примеру: есть дата 12.10.2006 Хотелось получить такое число 20061012 (удаление точек и изменение порядка чисел год, месяц, день) Заранее спасибо |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  EUGY Вопросов: 0 Ответов: 454 |
Профиль | | #1 | Добавлено: 24.02.07 01:13 |
Debug.Print Replace("12.10.2006", ".", ""
Debug.Print Day(CDate("12.10.2006" )
Debug.Print Year(CDate("12.10.2006" )
Debug.Print Month(CDate("12.10.2006" )
|
||
|
Номер ответа: 2 Автор ответа: Stepan Вопросов: 9 Ответов: 32 |
Профиль | | #2 | Добавлено: 24.02.07 01:28 |
|
Вот так получилось:
Text5.Text = Day(CDate(Text1.Text)) Text3.Text = Year(CDate(Text1.Text)) Text4.Text = Month(CDate(Text1.Text)) Text6.Text = Text3.Text + Text4.Text + Text5.Text СПАСИБО. |
||
|
Номер ответа: 3 Автор ответа: StepanВопросов: 9 Ответов: 32 |
Профиль | | #3 | Добавлено: 24.02.07 01:37 |
|
Есть маленький недостаток
берем дату 01.12.2007 и получаем 2007121, а хотелось получить 20071201 (ноль пропал) Подскажите как можно исправить. Заранее спасибо |
||
|
Номер ответа: 4 Автор ответа: StepanВопросов: 9 Ответов: 32 |
Профиль | | #4 | Добавлено: 24.02.07 01:37 |
|
Есть маленький недостаток
берем дату 01.12.2007 и получаем 2007121, а хотелось получить 20071201 (ноль пропал) Подскажите как можно исправить. Заранее спасибо |
||
|
Номер ответа: 5 Автор ответа: StepanВопросов: 9 Ответов: 32 |
Профиль | | #5 | Добавлено: 24.02.07 01:38 |
|
Дошло, поставил условия:
If Text5.Text = "1" Then Text5.Text = "01" End If и так далее .... |
||
|
Номер ответа: 6 Автор ответа: EUGYВопросов: 0 Ответов: 454 |
Профиль | | #6 | Добавлено: 24.02.07 03:24 |
Debug.Print Format(CDate("01.12.2007", " D.MM.YY"
Debug.Print Format(CDate("01.12.2007" , ".MM.YY"
Debug.Print Format(CDate("01.12.2007" , "MM YYYY DDDD"
|
||
|
Номер ответа: 7 Автор ответа: StepanВопросов: 9 Ответов: 32 |
Профиль | | #7 | Добавлено: 24.02.07 10:40 |
| Спасибо | ||
Страница: 1 |