Lettura Orologio di Sistema

[Jano82]

ciao....
mi serve di sapere come leggere l'ora dall'orologio di sistema...
e di sapere di che tipo è la variabile in cui va messa l'ora letta.....tutto in ambito Visual Basic 6.0

[Markho]

la variabile time contiene l'ora corrente.... la memorizzi su una variabile di tipo data o stringa

[Jano82]

quindi basta che faccio:

dim ora as String
ora = Time

?

[xegallo]

si

[Gugu]

Per prima cosa ti consiglierei di utilizzare altre funzioni correlate:

dim oraadesso as String
dim dataoggi as string
dim ore as String
dim minuti as String
dim secondi as String

oraadesso = Time     '--> es.: 20:30:12
dataoggi = Date      '--> es.: 06/02/03
ore = hour(Time)     '--> es.: 20
ore = minute(Time)   '--> es.: 30
ore = second(Time)   '--> es.: 12

per gestire la data o l'ora il altro formato..
usa il format(...
ed avrai la data tipo: Giovedì 6 Febbraio, ecc..

Ciao ciao
Gugu

[xegallo]

Originariamente inviato da Gugu
Per prima cosa ti consiglierei di utilizzare altre funzioni correlate:

dim oraadesso as String
dim dataoggi as string
dim ore as String
dim minuti as String
dim secondi as String

oraadesso = Time     '--> es.: 20:30:12
dataoggi = Date      '--> es.: 06/02/03
ore = hour(Time)     '--> es.: 20
ore = minute(Time)   '--> es.: 30
ore = second(Time)   '--> es.: 12

per gestire la data o l'ora il altro formato..
usa il format(...
ed avrai la data tipo: Giovedì 6 Febbraio, ecc..

Ciao ciao
Gugu

esagerato :gren:

Option Explicit

Private Declare Sub GetLocalTime 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 MyTime As SYSTEMTIME
Dim sTime As String
Dim sDate As String
Dim giorno As String
GetLocalTime MyTime
Select Case MyTime.wDayOfWeek
   Case 0
      giorno = "Domenica"
   Case 1
      giorno = "Lunedì"
   Case 2
      giorno = "Martedì"
   Case 3
      giorno = "Mercoledì"
   Case 4
      giorno = "Giovedì"
   Case 5
      giorno = "Venerdì"
   Case 6
      giorno = "Sabato"
End Select
sTime = MyTime.wHour & ":" & MyTime.wMinute & ":" & MyTime.wSecond & ":" & MyTime.wMilliseconds
sDate = giorno & " " & MyTime.wDay & "/" & MyTime.wMonth & "/" & MyTime.wYear
MsgBox sTime & vbCrLf & sDate
End Sub

[Jano82]

LO FACCIO IIIIOOOO LO SCRIPTINO....
VOLEVA FARE LO SBOROONEEE!!!!!
*Larsen RULEZ!*
MAHUAHAH

cmq grazie a tutti!:metallica