UDT system time

[xegallo]

ho notato una stanezza nell' udt systemtime

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

Private Declare Sub GetSystemTime Lib "KERNEL32" _
   (lpSystemTime As SYSTEMTIME)


sub main()
    dim uSt as SYSTEMTIME
    GetSystemTime st
    With Form1.List1
      .AddItem "anno " & ust.wYear
      .AddItem "mese " & ust.wMonth
      .AddItem "giorno " & ust.wDay
      .AddItem "giosett " & ust.wDayOfWeek
      .AddItem "ora " & ust.wHour
      .AddItem "minuti" & ust.wMinute
      .AddItem "secondi " & ust.wSecond
      .AddItem "milli sec " & ust.wMilliseconds
      .Refresh
    End With
end sub

se qualcuno ha un os in lingua inglese potrebbe testarlo

[$$$]

Provato su Windows 2000 Advanced Server ( Inglese Standard )
Come da allegato...

[$$$]

come da allegato

[xegallo]

allora è prprio incasinato di suo

[optime]

Originariamente inviato da xegallo
allora è prprio incasinato di suo

hai sbagliato la struttura...

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

[$$$]

da notare che cmq la struttura restitiusce il risultato in blocchi di WORD quindi la parte alta va mascherata!

[optime]

Originariamente inviato da $$$
da notare che cmq la struttura restitiusce il risultato in blocchi di WORD quindi la parte alta va mascherata!

scusa ma non ti seguo...

[xegallo]

Originariamente inviato da optime
hai sbagliato la struttura...

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

scusa ma cosa centra l'ordine degli elementi li ordina per indice?

[$$$]

adesso non conosco bene quello che fa vb...
ma l'api GetSystemTime restituisce i valori in sequenza di WORD in sequenza della struttura.

quindi se tu in ipotesi setti il primo parametro es secondi, quello cmq sarà l'anno!

[$$$]

Originariamente inviato da optime
scusa ma non ti seguo...

l'api restituisce valori in sequenza


0 anno 2° byte
1 anno 1° byte

2 mese 2° byte
3 mese 1° byte

4 e cosi via
5 ...

quindi il primo word contiene un valore a cui x CONVENZIONE è stato assegnato ANNO e cmq lo chiami restituisce anno!