blocks|key|952206|text|尝试使用：format(now(),+"yyyy-MM-dd+hh:mm:ss")|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|952207|entityMap^0|5|10|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|K|8|@]|D|@]|E|$]]]|G|$]]

Try with: <code>format(now(), "yyyy-MM-dd hh:mm:ss")</code>

blocks|key|736108|text|使用格式化功能。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|736109|Format(Date,+"yyyy-mm-dd+hh:MM:ss")|code-block|syntax|javascript|736110|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|$]]

Use the Format function.

<pre><code>Format(Date, "yyyy-mm-dd hh:MM:ss")
</code></pre>

blocks|key|736112|text|Format(Now(),+"yyyy-MM-dd+hh:mm:ss")|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|736113|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>Format(Now(), "yyyy-MM-dd hh:mm:ss")
</code></pre>

blocks|key|736163|text|DateTime.Now返回数据类型为Date的值。日期变量根据计算机上设置的短日期格式和时间格式显示日期。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|736164|它们可以格式化为字符串，以便由Format函数以任何有效的日期格式显示，如其他答案中所述|736165|Format(DateTime.Now,+"yyyy-MM-dd+hh:mm:ss")|code-block|syntax|javascript|736166|entityMap^0|0|C|J|4|0|F|6|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@$9|P|A|Q|B|C]|$9|R|A|S|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|T|8|@$9|U|A|V|B|C]]|D|@]|E|$]]|$1|H|3|I|5|J|7|W|8|@]|D|@]|E|$K|L]]|$1|M|3|-4|5|6|7|X|8|@]|D|@]|E|$]]]|N|$]]

<code>DateTime.Now</code> returns a value of data type <code>Date</code>. Date variables display dates according to the short date format and time format set on your computer.

They may be formatted as a string for display in any valid date format by the <code>Format</code> function as mentioned in aother answers

<pre><code>Format(DateTime.Now, "yyyy-MM-dd hh:mm:ss")
</code></pre>

blocks|key|736223|text|如果代码的某些用户具有不同的语言设置，则格式可能无法工作。因此，我使用了下面的代码，它以"yyymmdd+hhMMss“的格式给出了时间戳，而与语言无关。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|736224|Function+TimeStamp()
Dim+iNow
Dim+d(1+To+6)
Dim+i+As+Integer


iNow+=+Now
d(1)+=+Year(iNow)
d(2)+=+Month(iNow)
d(3)+=+Day(iNow)
d(4)+=+Hour(iNow)
d(5)+=+Minute(iNow)
d(6)+=+Second(iNow)

For+i+=+1+To+6
++++If+d(i)+<+10+Then+TimeStamp+=+TimeStamp+&+"0"
++++TimeStamp+=+TimeStamp+&+d(i)
++++If+i+=+3+Then+TimeStamp+=+TimeStamp+&+"+"
Next+i

End+Function|code-block|syntax|javascript|736225|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|$]]

If some users of the code have different language settings format might not work. Thus I use the following code that gives the time stamp in format "yyymmdd hhMMss" regardless of language.

<pre><code>Function TimeStamp()
Dim iNow
Dim d(1 To 6)
Dim i As Integer


iNow = Now
d(1) = Year(iNow)
d(2) = Month(iNow)
d(3) = Day(iNow)
d(4) = Hour(iNow)
d(5) = Minute(iNow)
d(6) = Second(iNow)

For i = 1 To 6
 If d(i) &lt; 10 Then TimeStamp = TimeStamp &amp; "0"
 TimeStamp = TimeStamp &amp; d(i)
 If i = 3 Then TimeStamp = TimeStamp &amp; " "
Next i

End Function
</code></pre>

blocks|key|736260|text|这对我来说效果最好：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|736261|++++++++Cells(partcount+%2B+5,+"N").Value+=+Date+%2B+Time
++++++++Cells(partcount+%2B+5,+"N").NumberFormat+=+"mm/dd/yy+hh:mm:ss+AM/PM"|code-block|syntax|javascript|736262|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|$]]

this worked best for me:

<pre><code> Cells(partcount + 5, "N").Value = Date + Time
 Cells(partcount + 5, "N").NumberFormat = "mm/dd/yy hh:mm:ss AM/PM"
</code></pre>

blocks|key|952406|text|它可以像这样简单地工作，选择你想要的位置，在这种情况下我选择D3|type|unstyled|depth|inlineStyleRanges|entityRanges|data|952407|Sheets("Put+your+Sheet's+name+here").Range("D3")+=+Now|code-block|syntax|javascript|952408|例如，我的表名为Sources|offset|length|style|CODE|952409|Sheets("Sources").Range("D3")+=+Now|952410|entityMap^0|0|0|8|7|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|S|8|@$I|T|J|U|K|L]]|9|@]|A|$]]|$1|M|3|N|5|D|7|V|8|@]|9|@]|A|$E|F]]|$1|O|3|-4|5|6|7|W|8|@]|9|@]|A|$]]]|P|$]]

It can work as easy as this, choose the location you want, in this case I choose D3

<pre><code>Sheets("Put your Sheet's name here").Range("D3") = Now
</code></pre>

Example, my sheet is called <code>Sources</code>

<pre><code>Sheets("Sources").Range("D3") = Now
</code></pre>

blocks|key|952447|text|保存工作簿路径时的时间戳，需要更改":“。我使用了":“->+".”，这意味着我需要将扩展名添加回"xlsx“。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|952448|wb(x).SaveAs+ThisWorkbook.Path+&+"\"+&+unique(x)+&+"+-+"+&+Format(Now(),+"mm-dd-yy,+hh.mm.ss")+&+".xlsx"|code-block|syntax|javascript|952449|entityMap^0|I|1|Q|1|W|1|1E|4|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]|$9|P|A|Q|B|C]|$9|R|A|S|B|C]|$9|T|A|U|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|V|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|W|8|@]|D|@]|E|$]]]|L|$]]

Timestamp in saving workbook path, the "<code>:</code>" needs to be changed. I used "<code>:</code>" -> "<code>.</code>" which implies that I need to add the extension back "<code>xlsx</code>".

<pre><code>wb(x).SaveAs ThisWorkbook.Path &amp; "\" &amp; unique(x) &amp; " - " &amp; Format(Now(), "mm-dd-yy, hh.mm.ss") &amp; ".xlsx"
</code></pre>

I am using <code>DateTime.Now</code> in my Excel Macro to show the current timestamp.

It shows timestamp in "dd-MM-yyyy hh:mm:ss" format.

Instead, how can I get the timestamp in "yyyy-MM-dd hh:mm:ss" format?

Excel Macro : How can I get the timestamp in "yyyy-MM-dd hh:mm:ss" format?

我在Excel Macro中使用DateTime.Now来显示当前时间戳。它以"dd-MM-yyyy hh:mm:ss“格式显示时间戳。如何获取"yyyy-MM-dd hh:mm:ss“格式的时间戳？

问Excel宏:如何获取"yyyy-MM-dd hh:mm:ss“格式的时间戳？
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Excel宏:如何获取"yyyy-MM-dd hh:mm:ss“格式的时间戳？EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Excel宏:如何获取"yyyy-MM-dd hh:mm:ss“格式的时间戳？
EN