Udregn real-time sekunder til dato/tid

Brug DateDiff("n", dato1, dato2)

//>Rune

Dim d as date

d = datediff("d", Now(), givendatotid)

you should look at the datediff function in help. the "d" (days) can be changed to other values.

givendatotid is a field containing the given dato/tid and Now() is the current date/time

Er "n" sekunder ??

hvordan skal den givne dato formateres for at få den til at virke ???

all depends on which dB
access = #mm-dd-yyyy hh:mm:ss#

or
#yyyy-mm-dd hh:mm:ss#

Ingen database endnu...

Hvordan kan man sætte det sammen hvis man skal have det fra en anden form ??

ex. frmOptions.DTPicker1.Day

og så videre

d = datediff("d", Now(), frmOptions.DTPicker1.value)

should work

Type mismatch

StatusBar1.Panels(1).Text = DateDiff("n", strTime, frmOptions.DTPicker1.Value & " " & frmOptions.DTPicker2.Value)

Off topic

hvordan kan det være du skriver på Engelsk men godt kan finde ud af at læse Dansk ??


On topic

strTime er fra mit andet spørgsmål som du oxo besvarede, med hensyn til real-time visning af tid

takes too long to write in danish,


set a break point on the line
StatusBar1.Panels....

then run the program until you break at this line. then press Ctrl+G to open the debug window. Then in the debug window write
?strTime
you should now see the contents of strTime
you can do the same for ?
frmOptions.DTPicker1.Value & " " & frmOptions.DTPicker2.Value

also! datediff returns a numeric value and StatusBar1.Panels(1).Text is text

so you could try
StatusBar1.Panels(1).Text = cstr(DateDiff("n", strTime, frmOptions.DTPicker1.Value & " " & frmOptions.DTPicker2.Value))

StatusBar1.Panels(1).Text = cstr(DateDiff("n", strTime, frmOptions.DTPicker1.Value & " " & frmOptions.DTPicker2.Value))

hjalp mig ikke, statid "type mismatch"

Der står "22-03-03 21:27:05" i strTime på det tidspunkt den breaker

what about DTPicker1 and DTPicker2, what values do they have?

Det er vel lige meget om det er en numerisk værdig, når den bliver puttet ind i en som tekst bagefter ... eller ??

DTPicker1 og 2 er i en anden form, og jeg ved ikke helt fordan jeg skal hive værdigen fra dem over i en anden form

you can try forms!frmOPtions.dtpicker....

det lader til at DTPicker1 og 2 har samme værdig, selv om jeg har sat 2'eren til at være tid....meget mystisk

another way is to put the values from both dtPicker and put them in a global date variable. you hav access the these anywhere in your program.
Now I am off for the evening, will take a look tomorrow

ref:22/03-2003 21:38:59
thsi will be your problem then I would think!

Ok, jeg har fundet ud af, at hvis jeg ikke vælge noget tidspunkt, så skriver den kun dato, men hvis jeg ændre den fra 00:00:00 til et eller andet andet, så skriver den både dato og tid, fra DTPicker2

Mystisk.....


Har du nogen ide om hvordan man kan få den til kun at skrive tid ??

Try
Format(Me.DTPicker2, "hh:mm:ss")

Den viser -5660 og stigende, måske fordi DTPicker2 ikke har nogen værdig, fordi den ikke kan få den fra den ene form til den anden ??

Hvordan skal jeg lave en Global Date variabel ??

Kunne du evt. vise mig ?? :D (Stadig newb!)

if you can send the source to eksperten@santhell.dk then I will take a look when I get home from work

Form1.Label2.Caption = DTPicker.Value & " " & Format(TMPicker.Value, "hh:mm:ss")

Ok, nu har jeg gjort det, og det virker jo fint

Men tilbage til statusbaren....

Hvordan skal jeg opbygge en variabel så jeg kan hente værdien af DTPicker/TMPicker fra den anden form ?

Lige meget har fundet ud af det.....skulle bare skrifte n ud med s