none
奇怪的日期 RRS feed

  • 问题

  • 利用VS2010设计一个excel文档程序,如下一个小按钮,

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            Dim r As Excel.Range, d As Date
            r = Range("a1")
            d = Now()   
            r.Value = d
            MsgBox(d & " = " & r.Value & ": " & (d = r.Value))
            r = Nothing
        End Sub

    运行后竟然得出false的结论,竟然是d>r.value的!难以理解!

    2013年2月7日 11:34

全部回复

  • 你好,有可能是有 round up,所以datetime.Now > r.Value

    大家一齊探討、學習和研究,謝謝!
    MCSD, MCAD, MCSE+I, MCDBA, MCDST, MCSA, MCTS, MCITP, MCPD,
    MCT, Microsoft Community Star(TW & HK),
    Microsoft MVP for VB.NET since 2003
    My MSMVP Blog

    2013年2月18日 2:24