codice:
' out controlla Data Estesa e Data non estesa..
Public Shared Function Oggi(ByVal Out As Boolean) As String
Dim DataOut
If Out = True Then
DataOut = "Oggi è " & Now.Date.ToLongDateString
DataOut += " - Sono le ore: " & FormatDateTime(Now.ToLocalTime.AddHours(-2), DateFormat.ShortTime)
ElseIf Out = False Then
DataOut = "Oggi è il " & Now.Date.ToShortDateString
DataOut += " - Sono le ore: " & FormatDateTime(Now.ToLocalTime.AddHours(-2), DateFormat.ShortTime)
End If
Return DataOut
End Function