Comment calculer timedifference en vb6

Je veux calculer la différence de temps en vb6. j'avais été fait dans vb.net. mais je ne sais pas comment faire pour convertir en vb6.Parce que le type datetime ne sera pas disponible en vb6.

j'ai collé mon vb.net le code ci-dessous. comment faire la même chose en vb6?

Public Sub timecal()
    Dim dFrom As DateTime
    Dim dTo As DateTime
    Dim tempstarttime As DateTime
    Dim idletime As String = "00:05:00"
    Dim Needtosub As String = "00:01:00"
    Dim timeDiff As String
    If DateTime.TryParse(start_time, dFrom) AndAlso DateTime.TryParse(end_time, dTo) Then
        Dim TS As TimeSpan = dTo - dFrom
        Dim hour As Integer = TS.Hours
        Dim mins As Integer = TS.Minutes
        Dim secs As Integer = TS.Seconds
        timeDiff = ((hour.ToString("00") + ":") + mins.ToString("00") + ":") + secs.ToString("00")
        sscheck1 = False
        If timeDiff >= idletime Then
            tempstarttime = System.DateTime.Parse(end_time)
            tempstarttime = tempstarttime.AddMinutes(-1)
            start_time = Strings.Format(tempstarttime, "yyyy-MM-dd HH:mm:ss")
            sscheck1 = True
        End If
    End If
End Sub

OriginalL'auteur user3141349 | 2014-08-06

vb6

7

Vous pouvez calculer la différence de temps entre deux Date valeurs (ce qui inclut le temps) à l'aide de la Fonction DateDiff

De la différence en minutes:
```
Dim lMinutes as Long
lMinutes = DateDiff("n", dFrom, dTo)
```
De la différence en secondes:
```
Dim lSeconds as Long
lSeconds = DateDiff("s", dFrom, dTo)
```
De la différence en heures:
```
Dim lHours as Long
lHours = DateDiff("h", dFrom, dTo)
```
Aux fins de l'obtention de votre chaîne de temps diff en heures:minutes:secondes, je le ferais:
```
Dim lSeconds as Long, lMinutes as Long
lSeconds = DateDiff("s", dFrom, dTo)
lMinutes = Fix(lSeconds / 60) '//Gets the whole number (not rounded)
lSeconds = ((lSeconds / 60) - lMinutes) * 60 '//get the remaining seconds
sTimeDiff = "00:" & Format$(lMinutes, "00") & ":" & Format$(lSeconds, "00")
```
Remarque: Si lMinutes est supérieur à 60, vous aurez besoin de faire les mêmes mathématiques à tirer les heures à la partie avant de la tirer, les minutes et les secondes. Ce code suppose que votre temps est à moins d'une heure, sur la base de votre exemple.

OriginalL'auteur C-Pound Guru

utiliser vb Fonction DateDiff je.e

Dim datTim1 As Date = #1/4/2001#
Dim datTim2 As Date = #1/9/2001#
' Assume Sunday is specified as first day of the week. 
Dim wD As Long = DateDiff(DateInterval.Weekday, datTim1, datTim2)
Dim wY As Long = DateDiff(DateInterval.WeekOfYear, datTim1, datTim2)

ou peut être fait avec une autre manière générale

    Dim dtStart As Long
    Dim dtEnd As Long
    Dim result As Long
    Dim i As Integer

    dtStart = GetTickCount

    dtEnd = GetTickCount
    result = dtEnd – dtStart  // miliseconds 
   OutAddIn.objApptItem.Start = CDbl(result)   // miliseconds to date

Notez que le GetTickCount de l'échantillon ne permet pas de gérer la valeur de rouler dessus, donc si vous êtes assez malheureux pour avoir une période de traversée de l'événement, votre résultat sera désactivé par ~47 jours.

OriginalL'auteur user889030

Vous devez vous connecter pour publier un commentaire.