blocks|key|192452|text|我建议查看VBA的DateAdd函数。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|192453|http://www.techonthenet.com/excel/formulas/dateadd.php|offset|length|192454|http://office.microsoft.com/en-us/access-help/dateadd-function-HA001228810.aspx|192455|您可以执行以下操作：|192456|Format(DateAdd("d",+-4,+CDate(Me.datalivrare.Value)),+"dd.mm.yyyy")|code-block|syntax|javascript|192457|entityMap|0|LINK|mutability|MUTABLE|url|1^0|0|0|1I|0|0|0|27|1|0|0|0^^$0|@$1|2|3|4|5|6|7|W|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|X|8|@]|9|@$D|Y|E|Z|1|10]]|A|$]]|$1|F|3|G|5|6|7|11|8|@]|9|@$D|12|E|13|1|14]]|A|$]]|$1|H|3|I|5|6|7|15|8|@]|9|@]|A|$]]|$1|J|3|K|5|L|7|16|8|@]|9|@]|A|$M|N]]|$1|O|3|-4|5|6|7|17|8|@]|9|@]|A|$]]]|P|$Q|$5|R|S|T|A|$U|C]]|V|$5|R|S|T|A|$U|G]]]]

I suggest looking at the DateAdd function for VBA

<a href="http://www.techonthenet.com/excel/formulas/dateadd.php">http://www.techonthenet.com/excel/formulas/dateadd.php</a>

<a href="http://office.microsoft.com/en-us/access-help/dateadd-function-HA001228810.aspx">http://office.microsoft.com/en-us/access-help/dateadd-function-HA001228810.aspx</a>

You could do the following:

<pre><code>Format(DateAdd("d", -4, CDate(Me.datalivrare.Value)), "dd.mm.yyyy")
</code></pre>

blocks|key|3535540|text|在vba上添加和减去日期的最好方法是dateadd()+(减法操作使用负数)。此外，在示例代码中，格式字符串中缺少y+(它只接受1、2或4+y)。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|3535541|entityMap|0|LINK|mutability|MUTABLE|url|http://office.microsoft.com/en-us/access-help/dateadd-function-HA001228810.aspx^0|I|9|0|0^^$0|@$1|2|3|4|5|6|7|L|8|@]|9|@$A|M|B|N|1|O]]|C|$]]|$1|D|3|-4|5|6|7|P|8|@]|9|@]|C|$]]]|E|$F|$5|G|H|I|C|$J|K]]]]

the best to add and substract from dates on vba is <a href="http://office.microsoft.com/en-us/access-help/dateadd-function-HA001228810.aspx" rel="noreferrer">dateadd()</a> (with negative number for substractions)
also, in your example code there's a missing y on the format string (it accepts 1, 2 or 4 y, only)

blocks|key|3535549|text|首先转换为日期，然后减去天数，然后适当地格式化：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3535550|Format(DateAdd("d",+-4,+CDate(Me.datalivrare.Value)),+"dd.mm.yyyy")|code-block|syntax|javascript|3535551|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

First cast to Date, then subtract days, then format appropriately:

<pre><code>Format(DateAdd("d", -4, CDate(Me.datalivrare.Value)), "dd.mm.yyyy")
</code></pre>

blocks|key|192551|text|检查用户是否输入了VBA可以解释为日期的值，这一点很重要，因此首先您应该：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|192552|If+isDate(Me.datalivrare.Value)+Then
++++str_Date+=+Format(DateAdd("d",+-4,+CDate(Me.datalivrare.Value)),+"dd.mm.yyyy")
Else
++++MsgBox+"Not+a+valid+date+value",+vbCritical+%2B+vbOkOnly,+"Invalid+Entry"
End+If|code-block|syntax|javascript|192553|我认为bluefeet的答案包含了到目前为止最多的信息，我借用了DateAdd和CDate的使用。|192554|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

It is important to check if the user entered a value that VBA can interprit as a date so first you should:

<pre><code>If isDate(Me.datalivrare.Value) Then
 str_Date = Format(DateAdd("d", -4, CDate(Me.datalivrare.Value)), "dd.mm.yyyy")
Else
 MsgBox "Not a valid date value", vbCritical + vbOkOnly, "Invalid Entry"
End If
</code></pre>

I think bluefeet's answer had the most information so far and I borrowed the use of DateAdd and CDate.

blocks|key|1920673|text|这只是一个简单的答案，因为许多人没有使用OP的代码。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1920674|例如:减去4天|1920675|https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/dateadd-function|offset|length|1920676|Sub+DateTest()
+Dim+DateVar+As+Date
+DateVar+=+DateAdd("d",+-4,+Date)
+Debug.Print+DateVar
End+Sub|code-block|syntax|javascript|1920677|entityMap|0|LINK|mutability|MUTABLE|url^0|0|0|0|2R|0|0|0^^$0|@$1|2|3|4|5|6|7|T|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|U|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|V|8|@]|9|@$F|W|G|X|1|Y]]|A|$]]|$1|H|3|I|5|J|7|Z|8|@]|9|@]|A|$K|L]]|$1|M|3|-4|5|6|7|10|8|@]|9|@]|A|$]]]|N|$O|$5|P|Q|R|A|$S|E]]]]

Just a simple answer, as many aren't using the OP's code.
Eg: Minus 4 days
<a href="https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/dateadd-function" rel="nofollow noreferrer">https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/dateadd-function</a>
<pre><code>Sub DateTest()
 Dim DateVar As Date
 DateVar = DateAdd(&quot;d&quot;, -4, Date)
 Debug.Print DateVar
End Sub
</code></pre>

I'm having big problems doing operation with the date in Excel VBA.
I have a form that has a textbox where the user will enter the date. The problem is that he may enter it in different formats (eg, 1.08.2011 for 1st of August, or 8/1/11 for the same day). Now what I want to do is to subtract some days from that date that he enters in the TextBox. I had to success so far and I don't know how to do it.
I tried something like this

<pre><code>Format((Format(Me.datalivrare.Value, "dd.mm.yyy") - 4), "dd.mm.yyyy")
</code></pre>

Where datalivrare is that textbox where the user enters the date and 4 is the number of days I want to subtract from that date... and I want the format to always be dd.mm.yyyy no matter what they enter in that textbox.

Subtracting from a date in VBA?

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我在处理Excel VBA中的日期时遇到了很大的问题。我有一个表单，其中有一个文本框，用户将在其中输入日期。问题是他可能会以不同的格式输入它(例如，2011年8月1日的1.08.2011，或者同一天的8/1/11 )。现在我想要做的是从他在TextBox中输入的日期中减去几天。到目前为止，我不得不成功，但我不知道该怎么...

问在VBA中从日期中减去？
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在VBA中从日期中减去？EN