|
Перевод даты в символьную без нулей
|
||
|---|---|---|
Участник
Откуда: Днепропетровск
Сообщения: 4 416 |
||
| 28.10.2008, 10:20 |
|
|
|
|
|
Перевод даты в символьную без нулей
|
|||
|---|---|---|---|
|
#18+
Стороние организации присылают прайс (Exel), где первый столбец это символьный код("1.4","1.4.3" и т.д.), но когда читаешь какую-нибудь ячейку("1.4"), вдруг этот тип оказывается time, при переводе в символьную DTOC() преобразуется в символ "01.04.2008"....может кто встречался с этой проблемой, как преобразовать в символ, чтоб он получился "1.4", а не "01.04.2008" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.10.2008, 06:11 |
|
||
|
Перевод даты в символьную без нулей
|
|||
|---|---|---|---|
|
#18+
> Автор: ННовичок > Стороние организации присылают прайс (Exel), где первый столбец это символьный код("1.4","1.4.3" и т.д.), но > когда читаешь какую-нибудь ячейку("1.4"), вдруг этот тип оказывается time, при переводе в символьную DTOC() > преобразуется в символ "01.04.2008"....может кто встречался с этой проблемой, как преобразовать в символ, чтоб он > получился "1.4", а не "01.04.2008" Установить столбцу текстовый формат и как читаешь? -- С уважением Горбонос Игорь Леонидович Posted via ActualForum NNTP Server 1.4 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.10.2008, 10:20 |
|
||
|
Перевод даты в символьную без нулей
|
|||
|---|---|---|---|
|
#18+
Да, так и сделали на первый раз, зашли в экселевский документ и установили формат ячеек символьный тип, но если документов много, каждый не на открываешься...поэтому на форме имя каталога, а оттуда все экселевские документы читаются..конечно сделал разбор этой переменнной, разбил на составляющие убрал лидирующие нули и т.д....но может оказаться, что лидирующие нули тоже составляют код...вот поэтому и думал может есть какая-нибудь прилада, чтоб менять на символьный тип, если тип дата, но вид оставался прежним... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.10.2008, 13:16 |
|
||
|
Перевод даты в символьную без нулей
|
|||
|---|---|---|---|
|
#18+
qqq=crea('excel.application') qqq.Workbooks.Add('d:\qqq.xls') ?qqq.Workbooks(1).Sheets(1).cells(2,1).value ?qqq.Workbooks(1).Sheets(1).cells(2,1).text Posted via ActualForum NNTP Server 1.4 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.10.2008, 16:04 |
|
||
|
|
start [/forum/topic.php?fid=41&msg=35619298&tid=1587132]: |
0ms |
get settings: |
10ms |
get forum list: |
16ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
64ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
49ms |
get tp. blocked users: |
1ms |
| others: | 330ms |
| total: | 492ms |
| 0 / 0 |
