良い方法かどうかは、解りませんが!Private Sub Command1_Click() Dim myTime As Long myTime = 7261001 MsgBox CDate(myTime / 86400000#) & Right$(Format$(CStr(myTime / 1000), "###.000"), 4)End Sub