Resterende tijd berekenen

[old Hippy]

Hi allemaal

ik wil graag de resterende tijd berekenen die mijn export naar Excel duurt.
ik wide dit met een timer doen maar tijdens het prosess kan ik niets.
iemand een Idee hoe dit aan te pakken????
Wel iet gevonden maar nu nog in vb 2008

time diff*bytes copied/bytes remaining

int timeDiff = newTime - oldTime;
int bytesCopied = currentCopiedBytes - oldCopiedBytes;
int bytesRemaining = size - currentCopiedBytes;
String format = "";
try
{
  int timeRemaining = timeDiff*bytesCopied/bytesRemaining;
  int sec = (timeRemaining/1000) % 60;
  int min = (timeRemaining/(1000*60)) % 60;
  int hours = (timeRemaining/(1000*60*60)) % 24;
  int days = (timRemaining/(1000*60*60*24)) % 7;
  int weeks = (timeRemaining/(1000*60*60*24*7)); 
  if (sec != 0)
     format = sec + " seconds";
  if (min != 0)
     format = min + " minutes " + format; 
  //ect
}
catch(ArithmeticException e)
{
  //we did not recieve any bytes durring the last transfer
  format = "NEVER!"
}

 

[old Hippy]

Hi allemaal
ik heb wel iets inelkaar gezet maar kom niet uit het seconden probleem.
deze moet na elke 59 sec weer naar 59 terug
Nu kan er b.v 130 seconden staan
en dat moet dus 2 min en 10 sec worden
Iemand een Idee hoe dit optelossen?????
Of een beter idee

 Starttijd.Text = dt.Rows.Count * 1000
            Tijdloop.Text = row * 1000.ToString
            'resttijd in min in milliseconden
            Resttijd.Text = FormatNumber(((Starttijd.Text - Tijdloop.Text) / 1000 / 60 / 60.ToString), 0)
            'Resttijd in sec in  milliseconden
            sec1.Text = FormatNumber(((Starttijd.Text - Tijdloop.Text) / 1000 / 60.ToString), 0)
            'uitlezing tijd
            Dialog1.Label2.Text = "Export data to Excel Resterende tijd ongeveer " & Resttijd.Text & " min " & sec1.Text & " Sec"

Alvast bedankt Old Hippy

 

[old Hippy]

Hi De oplossing

   'Resttijd in sec en min
            secondenText.Text = FormatNumber(((Starttijd.Text - Tijdloop.Text) / 60 Mod 59), 0)

            MinutenText.Text = FormatNumber(((Starttijd.Text - Tijdloop.Text) / (60) / (60) - (secondenText.Text / 60)), 0)

            Dialog1.Label2.Text = "Export data to Excel Resterende tijd ongeveer " & MinutenText.Text & " Min " & secondenText.Text & " Sec"
            Try
                If MinutenText.Text <= 0 Then
                    Dialog1.Label2.Text = "Export data to Excel Resterende tijd ongeveer " & secondenText.Text & " Sec"
                End If
            Catch ex As Exception
                secondenText.Text = FormatNumber(((Starttijd.Text - Tijdloop.Text) / 60 Mod 59), 0)
            End Try

 

[Haaren101]

Je kunt ook DateDiff gebruiken

Ron

 

[old Hippy]

HI Bedankt voor de reactie maar geen idee hoe data diff gebruikt wordt.
maar zo als ik het nu doe werkt het ook
De code word in een export data naar Excel gebruikt.