В настоящее время я работаю над библиотечной системой в Excel с VBA, и мне нужна функция для генерации номера вызова книги на основе ее названия, автора и даты.
Вот пример моего кодирования
dim title, author, date, callnumber as string
title = "Book 1"
title = UCase(title)
author = "Author 1"
author = UCase(author)
date = NOW()
'i'll need to generate the call number
callnumber = ............??????????
Используя приведенные выше примеры, программа должна сгенерировать номер вызова для книги на основе автора, названия и даты.Я бы предпочел, чтобы в нем были первые 3 буквы «автора», дефис «-», первые 3 буквы «заголовок», дефис «-» и дата в цифрах.
Например, еслидата 3 марта 2011 года, сгенерированный номер вызова будет: "AUT-TIT-03032011"
For date = "29 февраля 2012 года, title =" The Stickman ", author =" Джон Ли ", сгенерированныйзначение должно быть: «JOH-THE-29022011»
Может кто-нибудь, пожалуйста, помогите мне? Спасибо большое!