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