Как из одной даты вычесть другую?

[soldat]

Я так понял с помощью TimeSpan и сравнить с помошью Compare

Как задать TimeSpan?

Я делал:
Public Sub New( _
ByVal days As Integer, _
ByVal hours As Integer, _
ByVal minutes As Integer, _
ByVal seconds As Integer)
days=20
...
...
...


Но что-то не то

[GSerg]

Документацией пользуемся? Али вслепую чёрных кошек ловим?
http://msdn.microsoft.com/library/rus/d ... tTopic.asp

[VAngel]

Код: Выделить всё

        Dim TSpan As TimeSpan 'Это временной промежуток
        Dim Tstart As DateTime
        Dim Tend As DateTime
        TSpan = Tend - Tstart


Ну а дальше делай с ним что хош, хотя там по ссылке и так все написано

[Sebas]

soldat

что нужно ИМЕННО?

[soldat]

Sebas
Нужно из системной даты вычесть другую, результат - количество дней до (будущей) даты

[VAngel]

Код: Выделить всё

        Dim TSpan As TimeSpan
        Dim Tstart As DateTime = Now
        Dim Tbd As DateTime = "25.07.2006"
        TSpan = Tbd - Tstart
        MsgBox(TSpan.Days)

Так можно вычислить сколько осталось дней до моего дня рождения.

[soldat]

VAngel СПАСИБО

[Sebas]

TSpan = Tbd.Substract(Tstart)

[soldat]

VAngel
невыходит, пишет: Оператор "-" для типов Date и Date не опрелделён

[soldat]

Sebas
пишет: Substract не является членом Date

[soldat]

GSerg
еслиб всё было понятно я не спрашивал бы

[GSerg]

Документация на русском языке.
Что именно в ней непонятно?

[soldat]

например:

Dim TSpan As TimeSpan
Dim Tstart As DateTime = Now
Dim Tbd As DateTime = "25.07.2006"
TSpan = Tbd - Tstart
MsgBox(TSpan.Days)

так пишет: Оператор "-" для типов Date и Date не опрелделён
а как вычесть не ясно

[soldat]

GSerg не могу из даты системной вычесть любую другую (результат число дней)

[GSerg]

А я могу.
Now.Subtract(d)

И чё?

[soldat]

GSerg
напиши по подробнее, ничего не получается

[GSerg]

Я тогда не знаю даже, что ещё надо объяснить...

[soldat]

GSerg

смотри:
Dim TSpan As TimeSpan
Dim Tstart As DateTime = Now
Dim Tbd As DateTime = "25.07.2006"
TSpan = Tbd - Tstart
MsgBox(TSpan.Days)

вроде всё должно получиться, но "-" не определён
(TSpan = Tbd - Tstart ), надо как-то вычесть а так как написано не получается

[GSerg]

soldat
Скажи честно, ты сказанное воспринимаешь или пропускаешь? Или если пропускаешь, то намеренно или просто такой ты весь?

Тут я тебе дал ссылку на русскоязычное описание метода, который тебе нужен.
Тут тебе дали цитату из той же самой русскоязычной документации.
Тут - то же самое ещё раз.

А ты всё равно показываешь на минус и кричишь "не работает".

[VAngel]

Я незнаю почему у тебя не вычитает этот код который я написал, у меня нормально работает в vs8 (2005)

[soldat]

GSerg VAngel

всё огромное спасибо,

Высказывание верно:

Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

[VAngel]

Может напишешь как получилось

[GSerg]

Ещё один...

http://bbs.vbstreets.ru/viewtopic.php?p=6580558#6580558

[soldat]

VAngel
так ведь ты сам всё написал

Dim TSpan As TimeSpan
Dim Tstart As DateTime = Now
Dim Tbd As DateTime = "08.07.2006"
TSpan = Tbd.Subtract(Tstart)

[Thomas]

Sebas
Нужно из системной даты вычесть другую, результат - количество дней до (будущей) даты

Привет.
А зачем изобретать велосипед.
Когда есть классная функция DateDiff

описание на странице http://msdn.microsoft.com/library/rus/d ... tediff.asp

пример кода от туда:
В этом примере функция DateDiff используется для отображения количества дней между заданной и текущей датами.

Dim FirstDate, Msg As String ' Declare variables.
Dim SecondDate As Date
FirstDate = InputBox("Enter a date")
SecondDate = CDate(FirstDate)
Msg = "Days from today: " & DateDiff(DateInterval.Day, Now, SecondDate)
MsgBox (Msg)

Удачи во всем.

[Sebas]

Ну, всё таки, TimeSpan более "Объектный" и чистый .NET