Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: как преоб...

RE: как преобразовать наименование месяца?

15.06.2007 21:09:01

All

4316 сообщения

RE: как преобразовать наименование месяца?

Спасибо, я уже решил проблему. Пришлось сделать так (может еще какому-нибудь чайнику типа меня пригодится):

Option Base 1
Option Explicit

Public Function makedata(data As Date) As String
'функция получает на входе дату в формате Date
'возвращает дату в формате "для договора"
'1.11.04 = "01" ноября 2004 г.

Dim i As Byte
Dim x As String
Dim SelectMonth

i = Month(data)

SelectMonth = Array("января", "февраля", "марта", _
"апреля", "мая", "июня", _
"июля", "августа", "сентября", _
"октября", "ноября", "декабря")

x = SelectMonth(i)

If Len(Day(data)) = 1 _
Then
makedata = Chr(34) & "0" & Day(data) & Chr(34) & " " & x & " " & Year(data) & " " & "г."
Else
makedata = Chr(34) & Day(data) & Chr(34) & " " & x & " " & Year(data) & " " & "г."
End If

End Function

P.S. Раздел для новичков
Автор: Юрий от 0:00:00 Источник ...

15.06.2007 21:09:01

All

4316 сообщения

RE: как преобразовать наименование месяца?

А так не подойдет?:

Private Sub DataToString()
Dim indata As Date
Dim outdata As String

indata = Now()
outdata = Format(indata, "dd/mmmm/yyyy")
MsgBox (outdata)
End Sub

P.S. Раздел для новичков
Автор: Anonymous от 0:00:00 Источник ...

15.06.2007 21:09:01

All

4316 сообщения

RE: как преобразовать наименование месяца?

Уязвили :) Конечно так красивее, естесственно после текстовой обработки outdata.

Раз вы так хорошо разбираетесь объясните - как можно отформатировать СТОЛБЕЦ таблицы MS Word не применяя метод Select, а посредством Range?

Перефразирую - можно ли работать со СТОЛБЦОМ таблицы MS Word из VBA (форматировать его) через Range?

P.S. Раздел для новичков
Автор: Юрий от 0:00:00 Источник ...

15.06.2007 21:09:01

All

4316 сообщения

RE: как преобразовать наименование месяца?

Можно записать макрос и посмотреть - но там много чего лишнего придется убрать.

Например так:

Sub MM()
Dim cls As Cells
ActiveDocument.Tables.Item(1).Range.Columns(2).Select
Selection.Cells.Shading.BackgroundPatternColor = RGB(255, 0, 0)

Set cls = ActiveDocument.Tables.Item(1).Range.Columns(3).Cells
cls.Shading.BackgroundPatternColor = RGB(0, 255, 0)
End Sub

P.S. Раздел для новичков
Автор: Anonymous от 0:00:00 Источник ...

Страница 2 из 2

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: как преоб...

Поиск

Список форумов

Начало | Forums