从字符串中提取日期并在 vb.net 中格式化 yyyy-mm-dd

Question

我正在尝试将现有的 vba 代码转换为 vb.net 代码。

目的是从字符串中提取日期，然后格式化成mySql风格。

我的工作 vba 代码是：

mData = Format(Left(Trim(Eventi(NuoviEv).innertext), 10), "yyyy-mm-dd")

在 vb.net 中，我可以使用以下内容提取日期；但我无法格式化。

mData = eventi(nuoviev).innertext.substring(0,10).trim()

如何将“yyyy-mm-dd”的格式添加到 vb.net 代码中？

字符串的一个例子（'Eventi(NuoviEv).innertext'的值）是：

03/12/2014 - Something happens

如果我用这个会不会浪费资源？：

mData = Eventi(NuoviEv).innertext.substring(6, 4) & "-" & _ 
    Eventi(NuoviEv).innertext.substring(3, 2) & "-" & _ 
    Eventi(NuoviEv).innertext.substring(0, 2)

感谢 MAC 我也得到了这个解决方案：

mData = Date.ParseExact(eventi(nuoviev).innertext.substring(0,10), "dd/mm/yyyy", nothing).tostring("yyyy-mm-dd")

只有一个疑问：看起来有点复杂，难道没有更简单的方法吗？ 但是，您能指出更好的解决方案吗？

Answer 1

将此Date.ParseExact 或Date.TryParseExact 与正确的格式字符串一起使用。

 Dim dt As Date = Date.ParseExact(mData, "yyyy-mm-dd", 
            System.Globalization.DateTimeFormatInfo.InvariantInfo)

或

Dim format() = {"yyyy-mm-dd", "d/M/yyyy", "dd-MM-yyyy"}
 Dim dt As Date = Date.ParseExact(mData, format,  
     System.Globalization.DateTimeFormatInfo.InvariantInfo, 
     Globalization.DateTimeStyles.None)

希望对您有所帮助。更多详情 DateTime.ParseExact 和 DateTime.TryParseExact Method

更新

从上面的代码中，你已经成功提取了日期并将其存储到变量mdata。现在我们的下一个任务是将string转换为datetime，为此我们可以使用两个内置的vb函数作为上面提到了 DateTime.ParseExact 和DateTime.TryParseExact Method。如果你通过链接，你可以很容易地理解函数背后的代码。这两个函数都将作为第一个参数提供给它的字符串值转换为日期时间，并转换为我们指定为第二个参数的自定义格式.

Answer 2

有很多方法，但我将以最简单的方式回答它，这样更容易应用。试试这个...

stringFormattedDate = CDate(stringNotFormattedDate).toString("yyyy-MM-dd")

如果这解决了您的问题，请让我知道下面的 cmets。 如果有错误，也请提出，但它对我来说很好。

我添加CDate 的原因是将string 日期转换为date 类型，以便我使用.toString() 对其进行格式化，这会将您的字符串日期返回到另一个格式化为您的MySQL 的字符串日期格式

Answer 3

只是

strValue = Strings.Format(Now(), "yyyy-MM-dd")

会的