Модераторы: Akina
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> из ВБ в ВБА, какая совместимость кода ? 
:(
    Опции темы
Gannibal
Дата 26.4.2005, 16:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
задачка такова в ВБ нешарю вообще как знаете smile хотя мог бы уже вючить... короче я вот вб из файла читаю вот так и записываю в другой

Код

Dim strJmeno As String
Dim intVek As String
Dim vek As Integer

Open App.Path & "\abc.txt" For Input As #1
  Open App.Path & "\cba.txt" For Output As #2
    Do Until EOF(1)
      Input #1, strJmeno, intVek
      vek = DateDiff("yyyy", intVek, Now)
        If DatePart("m", intVek) > DatePart("m", Now) Then vek = vek - 1
          If DatePart("m", intVek) = DatePart("m", Now) And DatePart("d", intVek) > DatePart("d", Now) Then vek = vek - 1
            Print #2, strJmeno & " " & vek & vbCr
      Print vek
    Loop
  Close #2
Close #1


это програма из первого файла считывает имя и дату рождения.. а во второй выводит имя и сколько лет так мне в Екселе надо написать нечто подобного только это всё будет выводится в колонки как реализовать?

Это сообщение отредактировал(а) M.E.G.U.S - 26.4.2005, 16:31


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Naghual
Дата 26.4.2005, 17:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Переноси в раздел программирования в MS Office. Поможем.
Откуда будут братся исходные данные? Структуру екселевского файла приведи.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Gannibal
Дата 26.4.2005, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
даже назадумывлася что такой раздел здесь есть я тма поищу может найду что нибудь полезное
Добавлено @ 17:26
перенёс.. тему можно закрыть ;)


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Akina
Дата 26.4.2005, 18:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Твоя тема - ты и закрывай... толькол при переносе в ВБА придется App.Path заменить на CurrentProject.Path.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0513 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.