[已解决]求日期

759857387

Sub test()
Range("a1") = Now
End Sub
结果是：年/月/日 时/分
要求：年/月/日
代码如何改？

最佳答案

月排行榜 / 总排行榜

as0810114

2015-1-1 22:22

把你的单元格格式清除一下，然后在执行代码。
或者
Sub test()
range("a1").clear
Range("a1") = format(Now,"yyyy/mm/dd")
End Sub

跳转到最佳答案楼层

tgydslr

now改为today试试

759857387

tgydslr 发表于 2015-1-1 20:50
now改为today试试

不行
直接改正如下：
Sub test()
If VBA.Now() - Range("a1") < 8 / 24 Then
MsgBox "对"
End If
End Sub

as0810114

Range("a1") = int(Now)
或者
Range("a1") = date

759857387

as0810114 发表于 2015-1-1 21:12
Range("a1") = int(Now)
或者
Range("a1") = date

结果都是：2015/1/1 0:00

as0810114

759857387 发表于 2015-1-1 21:35
结果都是：2015/1/1 0:00

不知道你要什么结果。

Sub test()
Range("a1") = format(Now,"yyyy/mm/dd")
End Sub

759857387

as0810114 发表于 2015-1-1 22:03
不知道你要什么结果。

Sub test()

只要2015/1/1这部分，时间不要。
Sub test()
Range("a1") = format(Now,"yyyy/mm/dd")
End Sub
测试结果还是：2015/1/1  0:00:00

as0810114

把你的单元格格式清除一下，然后在执行代码。
或者
Sub test()
range("a1").clear
Range("a1") = format(Now,"yyyy/mm/dd")
End Sub

liaozhifa33

同意楼上

因为楼主之前设置格式的影响

Sub Test()
    With Range("A1")
        .NumberFormatLocal = "yyyy/mm/dd"
        .Value = Format(Now, "yyyy/mm/dd")
    End With
End Sub

759857387

as0810114 发表于 2015-1-1 22:22
把你的单元格格式清除一下，然后在执行代码。
或者
Sub test()

成功！