Public DTPicker as xxxx ???

det går da fint nok

Private Sub Form_Load()
  Me.Caption = TimeTest
End Sub

Public Function TimeTest() As Date
  TimeTest = Time
End Function

Det eneste jeg får ud af det er 00:00:00 også selv om jeg har sat den til noget andet fx 05:30:00

hvad for du hvis du bruger koden her:

Private Sub Form_Load()
  Me.Caption = Time
End Sub

Hvordan skal det gøres hvis jeg ikke skal have en funktion, men bare gøres sådan at jeg kan hente værdi fra en form til en anden ???


Jeg er newb til VB6.....meget Newb ! ;D

hvis jeg bruger

Me.Caption = Time

under Load, så får jeg tiden i caption, men det er jo ikke helt det jeg vil....

Jeg skal bruge det så jeg kan hente værdien af en DatePicker ved navn TMPicker fra en anden form, og der efter skal der findes forskellen mellem now() og den tid den får fra TMPicker....

Og jeg kan ikke få det til at virke.....hvis jeg sætter et breakp. så skriver den at TMPicker er 00:00:00 ved ?TMPicker, også selv om jeg har ændret den til en anden tid !!

'---- Module1 ----
Option Explicit

Public MyTime As Date
'---- Module1 ----

'----- Form1 -----
Option Explicit

Private Sub Form_Load()
  MyTime = CDate("05:30:00")
  Me.Caption = CStr(MyTime)
End Sub
'----- Form1 -----

Det hjælper mig alså desværre ikke noget :(

Jeg skal bruge det sammen med:

StatusBar1.Panels(1).Text = DateDiff("n", Now(), frmOptions.DTPicker.Value & " " & Format(frmOptions.TMPicker.Value, "hh:mm:ss"))

Og jeg kan ikke helt få det til at virke.....

Den skriver nemlig bare 00:00:00 ved ?TMPicker når man bruger Breakpoint

Jeg er dog ikke sikker på at n er sekunder.....

prøv med:

StatusBar1.Panels(1).Text = Time

hvad er DTPicker.Value

...sikker på at n er sekunder

yyyy = Year
q = Quarter
m = Month
y = Day of year
d = Day
w = WeekDay
ww = Week
h = Hour
n = Minute
s = Second

Jeg har fået det til at virke ved at skifte n ud med s

Mange tak for din hjælp :D

Her er din point !!

ok :-)