|
Zkusil jsem DateDiff
Dim datumOd As Date = #1/1/2008#
Dim datumDo As Date = Now
Dim PocetDnu As Long = DateDiff(DateInterval.Day, datumOd, datumDo) + 1
MsgBox("Pořadové číslo dne od " & _
Format(datumOd, "d.M.yyyy") & _
" do " & Format(datumDo, "d.M.yyyy") & _
" je " & PocetDnu & ".")
|