VBA Date फ़ंक्शन वर्तमान सिस्टम दिनांक लौटाता है।
Date
आइए Date फ़ंक्शन द्वारा लौटाई गई तारीख को सेल A1 में संग्रहीत करें:
Sub DateExample1()
Range("A1") = Date
End Sub
आइए Date फ़ंक्शन द्वारा लौटाई गई तारीख को टेक्स्ट प्रारूप में प्रदर्शित करें:
Sub DateExample2()
MsgBox Format(Date, "d mmmm yyyy") 'रिटर्न, उदाहरण के लिए: 2 नवंबर, 2020
End Sub
हम कार्रवाई तभी करेंगे जब Date फ़ंक्शन द्वारा लौटाई गई तारीख महीने के पहले दिन से मेल खाती हो:
Sub DateExample3()
If Day(Date) = 1 Then
MsgBox "यह महीने का पहला दिन है!"
End If
End Sub