DateDiff mismatch ! ????

Hej.

Hvad er DTPicker for en slags kontrol ?

Når jeg anvender now bruger jeg ikke ().

Prøv med en msgbox at se hvorledes now vises og hvorledes dine sammenlignings-data vises.  Jeg tænker på skilletegn i datoen og om der er langt eller kort årstal.  Hvilket styresystem?

M.v.h.  Jørn

Det har jo virket.....kan du ikke huske i det foregående sp. jeg lavede, hvor du også hjalp mig, der fik jeg det jo til at virke....men nu vil det ikke mere....fatter ikke helt hvad problemet er....

Jeg bruger XP

Ok, nu har jeg fundet problemet


Det lader til at man ikke må lave:

DTPicker.Value = now
TMPicker.Value = now

Det virker nemlig fint uden det i frmOptions

Hvordan er det så muligt at få DTPicker til at have datoen idag og TMPicker at have tiden lige nu ???

var det ikke "s", og ikke "n", du skulle bruge.

datoogtid = DateDiff("s", Now(), frmOptions.DTPicker.Value & " " & Format(frmOptions.TMPicker.Value, "hh:mm:ss"))

http://www.eksperten.dk/spm/334563

jo....så langt er jeg med...

Men kan man godt gøre sålede når man skal putte now ind i TMPicker:

Me.TMPicker.Value = Format(now, "hh:mm:ss")
Me.DTPicker.Value = Format(now, "d-m-y")

Eller hvordan skal det gøres, hvis man godt vil have at DT/TM-Picker viser den aktuelle tid, når formen bliver loaded ??

Hvad er:
TMPicker og DTPicker

er det TextBox eller CheckBox eller hvad??

det giver:

Text1 = Format(Now, "d-m-y")    '= 31-3-90
Text2 = Format(Now, "hh:mm:ss") '= 16:48:44

TMPicker er en Tidsvælger
DTPicker er en Datovælger

De findes i Common Controls 6.0 og Common Controls-2 6.0 (tror jeg da nok)

fordan for man dato med evt. 0 foran, så 31-3-90 ville være 31-03-90 ??

Format(Now, "d-mm-y")

gør såden så er du sikker:

xx = Format(Now, "dd-mm-yy")

Hvordan kan det være at den ikke er Y2K kompatibel ??

Den viser jo 1990 i stedet for 2003 !!

hvis din dato på computeren er sat til 1990 så er svaret der. :-)

her er lidt syntax:

'Format syntax
xx = Format(Now, "m/d/yy")              '1/27/93
xx = Format(Now, "dddd, mmmm dd, yyyy") 'Wednesday, January 27, 1993
xx = Format(Now, "d-mmm")              '27-Jan
xx = Format(Now, "mmmm-yy")            'January-93
xx = Format(Now, "hh:mm AM/PM")        '07:18 AM
xx = Format(Now, "h:mm:ss a/p")        '7:18:00 a
xx = Format(Now, "d-mmmm h:mm")        '3-January 7:18

nope....min computer er sat til 2003....i hvert i faldet i Windows....

hvad siger denne her så??


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

Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Private Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type

Private Sub Form_Load()
Dim SysTime As SYSTEMTIME
  GetSystemTime SysTime
    MsgBox "Date is:" & SysTime.wMonth & "-" & SysTime.wDay & "-" & SysTime.wYear & vbCrLf & _
          "Time is:" & SysTime.wHour & ":" & SysTime.wMinute & ":" & SysTime.wSecond
End Sub
'-------------- Form1 --------------

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

Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Private Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type

Private Sub Form_Load()
Dim SysTime As SYSTEMTIME
Dim strDate As Date
  GetSystemTime SysTime
   
strDate = SysTime.wHour & ":" & SysTime.wMinute & ":" & SysTime.wSecond & " " & _
          SysTime.wMonth & "-" & SysTime.wDay & "-" & SysTime.wYear

MsgBox Format(strDate, "dd-mm-yy")
End Sub
'-------------- Form1 --------------

helt fint.....

Tak for hjælpen.....

selv tak ;-)