VBNet - Форум - Нужна помощь.

Вопрос: Нужна помощь. Добавлено: 23.12.11 11:32

Автор вопроса: Miron | ICQ: 618808955

Простейшая программа сравнивает две даты и выводит количество дней, но говорит, что данный тип не может преобразовать. Где можно изменить тип или на какой поменять?
Option Explicit On
Public Class Form1
    Dim dtmDate1 As Date
    Dim dtmDate2 As Date
    Dim dtmdays As Long
    Private Sub выход_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles выход.Click
        End
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dtmDate1 = CDate(TxtDate1.Text)
        dtmDate2 = CDate(TxtDate2.Text)
        dtmdays = dtmDate1 - dtmDate2'вот здесь выдаёт ошибку
        TxtResult.Text = dtmdays
    End Sub
End

Ошибка 1 Невозможно преобразовать значение типа "System.TimeSpan" в "Long".
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: ---Fix--- ICQ: 348680795 Вопросов: 12 Ответов: 33	Профиль \| \| #1	Добавлено: 23.12.11 12:57
	в Net число больше не является промежутком времени. Правильный вариант: Option Explicit On Public Class Form1 Dim dtmDate1 As Date Dim dtmDate2 As Date Dim Period As TimeSpan 'класс представляющий промежуток времени Private Sub выход_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Date.TryParse(TxtDate1.Text, dtmDate1) = False Then MessageBox.Show("Неверное представление первой даты") Exit Sub End If If Date.TryParse(TxtDate1.Text, dtmDate1) = False Then MessageBox.Show("Неверное представление второй даты") Exit Sub End If dtmDate2 = CDate(txtDate2.Text) Period = dtmDate1 - dtmDate2 'вот здесь выдавал ошибку 'или можно так 'Period = dtmDate1.Subtract(dtmDate2) txtResult.Text = Period.Days.ToString & " дней" End Sub End Class Ответить

Номер ответа: 2 Автор ответа: Miron ICQ: 618808955 Вопросов: 1 Ответов: 1	Профиль \| \| #2	Добавлено: 23.12.11 13:27
	Спасибо) А високосные года он как 365 или 366 считает, не знаешь? Ответить

Номер ответа: 3 Автор ответа: ---Fix--- ICQ: 348680795 Вопросов: 12 Ответов: 33	Профиль \| \| #3	Добавлено: 23.12.11 13:40
	все считает как положено, единственное за чем нужно следить, это переходы на летнее, зимнее время Ответить

Страница: 1 |