将非标准日期格式(例如 "5 Sep")转换为 dd/mm(例如 05/09)

Question

我有一个VB。. NET问题，因此我想将Excel电子表格标题行中的非标准日期转换为不同的格式。具体来说，工作表到达时带有一个字母数字字符串变量日期和月份(例如，"5 Sep")，但我需要它将其转换为另一个字符串"05/09"

不幸的是，我既没有创建这些工作表，也没有定义自己的输出格式应该是什么-所以进退两难。任何帮助都将是非常感激的，因为我已经浪费了两天时间，到目前为止一无所获!提前感谢。

Try
xlWorkBook = xlApp.Workbooks.Open(result2)
xlWorkSheet = xlWorkBook.Worksheets("Attendances")
xlWorkBook.Activate()
If xlWorkSheet.Cells(1, 1).Value = "Course" Then
xlWorkSheet.Rows(1 & ":" & 3).Delete()
xlWorkBook.Save()

For t As Integer = 6 To 75
If xlWorkSheet.Cells(1, t).Value <> "" And Len(xlWorkSheet.Cells(1, t).Value) > 25 Then
xlWorkSheet.Cells(1, t).Value = Microsoft.VisualBasic.Left(xlWorkSheet.Cells(1, t).Value, InStr(xlWorkSheet.Cells(1, t).Value, " 20") - 1)
End If
Next                           
xlWorkBook.Save()
xlWorkBook.Close()
End If
xlApp.Quit()
Catch ex As Exception
lblPath.Text = "Exception"
End Try

Answer 1

如果保留年份部分，则可以使用DateTime。解析函数。然后，您可以将结果DateTime转换为只包含您想要的部分的字符串。

For t As Integer = 6 To 75
Dim v = xlWorkSheet.Cells(1, t).Value
If (Not String.IsNullOrWhiteSpace(v)) AndAlso Len(v) > 25 Then
Dim sd = String.Join(" ", v.Split({" "c}, 4).Take(3))
Dim d = DateTime.Parse(sd, New Globalization.CultureInfo("en-GB"))
xlWorkSheet.Cells(1, t).Value = $"=""{d.ToString("dd/MM")}"""
End If
Next

该值的格式为="05/09"，因此Excel不会将其格式化为日期，也不会进行除法。也许你不需要那样强迫。

我建议将原始数据保存在某个地方，也许通过隐藏列，并使用一个新列来显示。

Answer 2

也许这对你有帮助:

Private Function GetMonthNumber%(s$)
Select Case UCase(Trim(s$))
Case "JAN"
Return 1
Case "FEB"
Return 2
'...
Case Else
'bad argument
Return 0 
End Select
End Function