Counter in Basic: auf Tag X runterzählen?

[wincnc]

Hallo

Ich glaube dass Du Dich verrechnet hast.
Hast Du den Februar mit 28 Tagen gerechnet?
Das Programm rechnet nicht nur mit 30 Tagen.

 

[Xenolith]

Sry hab mich einmal verzählt :-(
ich würde gerne noch so ein fortschrittsbalken unten haben wie geht das genau?

danke nochmal für deine hilfe

XenoLith

 

[wincnc]

Hallo, hier ein Beispiel.

Public Class Form1

    Private EndZeit As DateTime

    Private Function CountDown(ByVal datEnd As DateTime) As String

        Dim intYear As Integer, intMonth As Integer
        Dim intYD As Integer, intMD As Integer, intWD As Integer, intTD As Integer
        Dim intHD As Integer, intND As Integer, intSD As Integer
        Dim datStart As DateTime

        datStart = Now

        If DateDiff("s", datStart, datEnd) >= 0 Then

            intYear = Year(datStart)
            intMonth = Month(datStart)

            intYD = Year(datEnd) - intYear
            intMD = Month(datEnd) - intMonth
            intTD = Microsoft.VisualBasic.DateAndTime.Day(datEnd) - Microsoft.VisualBasic.DateAndTime.Day(datStart)
            intHD = Hour(datEnd) - Hour(datStart)
            intND = Minute(datEnd) - Minute(datStart)
            intSD = Second(datEnd) - Second(datStart)

            If intSD < 0 Then
                intND = intND - 1
                intSD = intSD + 60
            End If

            If intND < 0 Then
                intHD = intHD - 1
                intND = intND + 60
            End If

            If intHD < 0 Then
                intTD = intTD - 1
                intHD = intHD + 24
            End If

            If intTD < 0 Then
                intMD = intMD - 1
                intTD = intTD + Microsoft.VisualBasic.DateAndTime.Day(DateSerial(intYear, intMonth + 1, 0))
            End If

            intWD = Int(intTD / 7)
            intTD = intTD - (intWD * 7)

            If intMD < 0 Then
                intYD = intYD - 1
                intMD = intMD + 12
            End If

            ProgressBar1.PerformStep()

        Else
            Timer1.Stop()
            Label1.Font = New Font("Arial", 20, FontStyle.Bold)
            CountDown = "Es ist soweit, Countdown beendet !"
            Exit Function
        End If

        CountDown = "Es sind noch: " & vbCrLf & vbCrLf _
                                     & intYD & " Jahr(e) und " & intMD & " Monat(e) und " & intWD & " Woche(n) und " & intTD & " Tag(e)" & vbCrLf & vbCrLf _
                                     & intHD & " Stunde(n) und " & intND & " Minute(n) und " & intSD & " Sekunde(n)"

    End Function

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = CountDown(EndZeit)
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        EndZeit = "18.12.2006 09:50:00"

        Me.Size = New Size(350, 200)
        Label1.Location = New Point(10, 10)
        Label1.Size = New Size(320, 120)
        Label1.Font = New Font("Arial", 8, FontStyle.Bold)
        Label1.Text = ""
        ProgressBar1.Location = New Point(10, 110)
        ProgressBar1.Size = New Size(315, 20)
        ProgressBar1.Style = ProgressBarStyle.Continuous
        ProgressBar1.Step = 1
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = DateDiff("s", Now, EndZeit)
        ProgressBar1.Value = 0
        Timer1.Interval = 1000
        Timer1.Start()
        Timer1_Tick(sender, e)
    End Sub

End Class

 

[Xenolith]

ProgressBar1.Maximum = DateDiff("s", Now, EndZeit)

so der sagt mir:
System.ArgumentOutOfRangeException

Der Wert -44236 ist für Maximum ungültig. Maximum muss größer als oder gleich 0 sein.
Parametername: Maximum

kann ich ehrlich nicht viel mit anfangen

 

[wincnc]

Hallo, gib die Endzeit > Now an dann sollte das Problem erledigt sein.
Natürlich kann das Maximum kein minus Wert sein.

 

[Xenolith]

ne geht nicht! allerdings startet er das programm ohne fehlermeldung oder warnung der countdown läuft zwar korrekt allerdings fungtioniert die progressbar nicht...
:-(