Anonymous user
Days between dates: Difference between revisions
→{{header|QB64}}
No edit summary |
|||
Line 1,622:
NumberOfDays = 0
Dim As Integer Year(1 To 2), Mounth(1 To 2), Day(1 To 2)
Dim As Integer
Year(1) = Val(Left$(from$, 4))
Year(2) = Val(Left$(to$, 4))
| |||