如何使用word vba檢查操作系統系統日期

我得到了一個類似於excel的qn文章，並得到了答案，但它無法在ms單詞上工作。如何使用word vba檢查操作系統系統日期

我想檢查的OS日期格式（無論是它在「日/月/年」或「毫米/日/年」）

我用在Excel VBA中下面的腳本，但它不」沒有工作的話，任何人都可以幫忙？

'========== Check OS Date format======== 
Dim OSDateFormatType As Integer 
' 0 = month-day-year; 1 = day-month-year; 2 = year-month-day 
If Application.International(xlDateOrder) = 0 Then 
    OSDateFormatType = 0 
ElseIf Application.International(xlDateOrder) = 1 Then 
    OSDateFormatType = 1 
ElseIf Application.International(xlDateOrder) = 2 Then 
    OSDateFormatType = 2 
End If

來源

2014-03-30 Leon

你互動，通過文字VBA Excel或您需要使用此信息只在字？ –

我想知道爲什麼你需要這個。你[已經解決了上半年的問題]（http://blogs.msdn.com/b/oldnewthing/archive/2006/03/23/558887.aspx），不是嗎？ – GSerg

你可能使用UDF（用戶定義函數），它可以如下：

Function OSDateFormatType() 
    Dim tmpDate As String 
    tmpDate = CStr(Replace(Replace(DateSerial(2020, 12, 31), "/", ""), "-", "")) 
    If tmpDate = "12312020" Then 
     OSDateFormatType = 0 
    ElseIf tmpDate = "31122020" Then 
     OSDateFormatType = 1 
    ElseIf tmpDate = "202" Then 
     OSDateFormatType = 2 
    Else 
     OSDateFormatType = "check" 
    End If 

End Function

來源

2014-03-30 07:16:43

如何使用word vba檢查操作系統系統日期

回答

相關問題