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

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> преобразовать число в 36-ричную систему счисления 
V
    Опции темы
tatbesidovska
  Дата 27.9.2010, 10:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Вопрос такой. Нужно на выходе получить файл с именем, SNNNmdn.OOO, где m-текущий месяц в 36-ричной системе счисления, d-текущий день в 36-ричной системе счисления,n-порядковый номер в течение дня  в 36-ричной системе счисления,заранее спасибо.
PM MAIL   Вверх
tatbesidovska
Дата 27.9.2010, 10:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Решение подсказали на другом форуме:
Код

Sub main() 
MsgBox "SNNN" & LngToStr(Month(Date), 36) & LngToStr(Day(Date), 36) & LngToStr(35, 36) & ".OOO" 
End Sub 

Function LngToStr(ByVal Value As Long, Baza As Byte) As String 
Dim M As Byte 
Do 
  M = Value Mod Baza + 48 
  If M > 57 Then M = M + 7 
  Value = Value \ Baza 
  LngToStr = Chr$(M) & LngToStr 
Loop While Value > 0 
End Function



Тема закрыта

Это сообщение отредактировал(а) Akina - 27.9.2010, 11:36
PM MAIL   Вверх
  
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

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

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


 




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


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

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