Hej!

Jag undrar hur man ställer om Windows 98's DATUM via VB? Det jag är ute efter är alltså INTE att läsa in ett datum till mitt program, utan snarare SKICKA ett datum till Operativsystemet...

Tacksam för enkla förklaringar... :P

Lägg in en command-knapp i ditt formulär och kör

<code>
Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime _
As SYSTEMTIME) As Long

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 Command1_Click()

dteNewDate = Cdate("2003-05-06 15:20")

Dim lReturn As Long
Dim lpSystemTime As SYSTEMTIME
lpSystemTime.wYear = Year(dteNewDate)
lpSystemTime.wMonth = Month(dteNewDate)
lpSystemTime.wDay = Day(dteNewDate)
lpSystemTime.wHour = Hour(dteNewDate)
lpSystemTime.wMinute = Minute(dteNewDate)
lpSystemTime.wSecond = 0
lpSystemTime.wMilliseconds = 0
lReturn = SetSystemTime(lpSystemTime)
End Sub
</code>

OBS, tänk på att tiden är i Greenwich-time. I exmplet ovan blir klockan svensk tid 17:20 dvs 1+ diff mellan Sverige och england samt 1+ tack vare vinter tid.

/Janne

Hej
Man kan ju klara sig med VB :s blir lite mindre kod och
funkar alldeles utmärkt.

Date = ("2003-05-06")
Time = ("15:20:00")

Sven

Kompleterande information. Tidskonstanter i Visualbasik omges med två # tecken. Om du skriver dessa i din kod som kommer det att formateras till amerikanskt format: #m/d/yyyy h:nn:ss AM#
Sker automatiskt.

Testa att skriava

Msgbox #2002-01-01#

I t.ex Form_Load. När du förflyttar dig till en annan rad så blir det:

MsgBox #1/1/2002#

Samma gäller tid och datum tid. Bara att omge konstanter med #-tecknet

tack allihop!

skall ta och testa nu! :D