[alma2]

كود :

Dim dtp1 As Date = Start1.Value.Date
Dim dtp2 As Date = Start1.Value.Date.AddDays(1)