在visual basic中删除日期中的字符

Question

我是VB中的完整NOOB，请原谅新手问题

我运行以下代码生成当前系统日期，如下图所示。

Dim cyear As Date
                cyear = Date.Now
                MsgBox(cyear)

我的问题

我正在寻找一种方法来删除上面文本框中的所有字符，以便只保留突出显示的黄色数字。它代表当前年份的最后2位数字。

Answer 1

您必须使用日期格式字符串，例如：

Dim value = String.Format("{0:yy}", DateTime.Now)

或

Dim value = DateTime.Now.ToString("yy")

查看Custom Date and Time Format Strings。

Answer 2

在输出之前格式化日期：

Dim cyear As Date
cyear = Date.Now
Dim yearShort as string = cyear.ToString("yy")
MsgBox(yearShort)

有关更多格式，请在此处阅读：http://msdn.microsoft.com/library/8kb3ddd4%28v=vs.110%29.aspx

Answer 3

最好简单地将格式传递给tostring方法。

DateTime.Now.toString("yy")

如果那不起作用......

DateTime.Now.toString("yyyy").Substring(2,2)

http://msdn.microsoft.com/en-us/library/zdtaw1bw(v=vs.110).aspx