Dim a As Double

a = CDbl(365) * 24 * 3600