esagerato :gren:Originariamente inviato da Gugu
Per prima cosa ti consiglierei di utilizzare altre funzioni correlate:
per gestire la data o l'ora il altro formato..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
usa il format(...
ed avrai la data tipo: Giovedì 6 Febbraio, ecc..
Ciao ciao
Gugu
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