主题：代码

Dim s As String = y & "年" & m & "月" & d & "日"
这句代码应如何改才更加简洁？

Dim dat As Date
Dim mm As Integer
Dim c As Date = vars("cc")
Dim y As Integer = c.year
Dim m As Integer = c.month
Dim d As Integer = c.Day

Dim s As String = y & "年" & m & "月" & d & "日"

 

改成

 

Dim dat As Date
Dim mm As Integer
Dim c As Date = vars("cc")

Dim s As String = Format(d, "yyyy年MM月dd日")

 

 

在一个日期框内输入月初日期，另一个日期框自动显示月终日期，如：在一个日期框内输入2015年5月1日，而另一个日期框自动输入2015年5月31日？

Dim d As Date = 日期.AddMonths(1).AddDays(-1)

通过两个字符串比较，如何提取其中一个字符串的不相同部分，不用遍历？

如：字符串1：揭阳市镇江食品公司，字符串2：镇江食品，两个字符串比较后，提取：镇江，不用遍历应如何做呢？