Originariamente inviato da Gugu
Per prima cosa ti consiglierei di utilizzare altre funzioni correlate:
codice:
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:

codice:
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