Gem ProcesTid

Du har jo beregningen her:

ProcessTid = Format((InputVarB - InputVarA), "hh:mm:ss")

Den mest korrekte måder at foretage en tidsberegning på, er vel at benytte funktionen DateDiff. Opret et felt i tabellen og sæt feltet = variablen procestid og kør evt. en tilføjelsesforespørgsel eller en update..

Jeg vil gerne at resultatet gemmes i en tabel i databasen, da jeg skal kunne måle performance hos forskellige brugere på forskellige servere

Så kan du oprellte et felt mere (her: FLDopdateretaf)
med brugernavn, som du fanger således:

FLDopdateretaf = Environ("Username")

Ok, jeg kan se jeg ikke har udtrykt mig helt klart, men jeg har en tabel ( tblProcessTid ) indeholdende :

OpdateringsDate = Default Now()
ProcessTid =

Jeg vil bare have resultatet af beregningen gemt i tabellen

Så kører du blot en tilføjelse:

Insert into....

Ellers har jeg misforsdtået det hele.

Det er noget af det jeg har forsøgt tidligere, hvor det ikke virkede, men nu virker det af een eller anden årsag !!!

Et bud på felttypen der kan indeholde hh:mm:ss er tekst - der kunne også være date (tidspunkt - underforstået 30-12-1899)

i function Update()

sql.execute "insert into tblProcessTid(ProcessTid) values('" & processtid & "')"

Et bedre design er at lave en Processtid klasse:

'===========================
Option Compare Database
Option Explicit

Private start
Private Sub Class_Initialize()
    start = Now()
End Sub
Private Sub Class_Terminate()
    CurrentDb.Execute _
        "insert into tblProcessTid(ProcessTid) " & _
        "values('" & Format(Now() - start, "hh:mm:ss") & "')"
End Sub

'==========================


Og så anvende instantiering de steder der skal tages tid på:

Sub testprocesstid()
    Dim pt As ProcessTid, i, j, a
    Set pt = New ProcessTid
    For i = 1 To 1000: For j = 1 To 10000: a = a + 1 + j: Next: Next
End Sub

Tak for point.