Question

我目前正在使用VBA在Excel上创建一个图书馆系统，我需要一个函数来根据标题，作者和日期生成图书的电话号码。

这是我编码的一个例子

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 = ............??????????

使用上面的例子，程序应根据作者，标题和日期为书籍生成一个电话号码。我希望它有“作者”的前三个字母，连字符“ - ”，前三个字母的“标题”，连字符“ - ”和日期的数字。

例如，如果日期是2011年3月3日，则生成的电话号码将是： “AUT-TIT-03032011”

对于date =“2012年2月29日，title =”The Stickman“，作者=”John Lee“，生成的值应为：“JOH-THE-29022011”

有人可以帮帮我吗？非常感谢！

Answer 1

callnumber = MID(author,1,3)&"-"&MID(title,1,3)&"-"&Format(date, "ddmmyyyy")

如何根据多个不同的值生成字符串？

1 个答案: