JS宏如何在单元格中自动添加当天日期

封魔战士

问题如题，日期是年月日，如今天2024年5月27日，要怎样自动添加。

jufengly

ActiveCell.Value2 = ((new Date()).getTime() + 8 * 60 * 60 * 1000) / 60 / 60 / 24 / 1000 + 25569;

ctp_119

1. function Macro1()
   
2. {
   
3.         var d=new Date();   //获取当前日期
   
4.         Range("A5").NumberFormatLocal = "yyyy/m/d";
   
5.         Range("A5").Value2=Math.floor(d/86400000)+25569
   
6. }

复制代码

jufengly

ctp_119 发表于 2024-5-27 15:47

时区的原因，会差8个小时吧？
不好意思，没看清楚，时间是0点

LIUZHU

jufengly 发表于 2024-5-27 16:11
时区的原因，会差8个小时吧？
不好意思，没看清楚，时间是0点

有这句代码好像不受影响，Range("A5").NumberFormatLocal = "yyyy/m/d";

jufengly

LIUZHU 发表于 2024-5-27 17:15
有这句代码好像不受影响，Range("A5").NumberFormatLocal = "yyyy/m/d";

我想了一下，其实上午8点前还是会有影响的吧。

jufengly

LIUZHU 发表于 2024-5-27 17:15
有这句代码好像不受影响，Range("A5").NumberFormatLocal = "yyyy/m/d";

是后面用了floor，把小数丢弃了

金牌1

ctp_119 发表于 2024-5-27 15:47

高手老师回答得太精彩了，化繁为简。
再请教个问题：用JSA写公式。在A1单格中，给A2：A  非空单格中计数:A1=COUNTA(A2:A).
下面如何修改？
Range('A1').Value2 = [`=COUNTA(A2:A199)`]

一江春水1688

直接转本地时间就可以，不需要再考虑8小时的时差：
Range('A5').Value2 = new Date().toLocaleDateString()

everbest2015

LIUZHU 发表于 2024-5-27 17:15
有这句代码好像不受影响，Range("A5").NumberFormatLocal = "yyyy/m/d";

大佬 请问 jsa 里面怎么计算代码的执行时间呢？