mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 10:12:16 +00:00
26 lines
1.3 KiB
VB.net
26 lines
1.3 KiB
VB.net
|
Module Com_Time
|
|||
|
|
Public Sub Terminal_Time()
|
|||
|
|
If Strings.AvailableFeature(5) = 1 Then
|
|||
|
|
NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) & " seconds passed since midnight")
|
|||
|
|
ElseIf Strings.AvailableFeature(5) = 3 Then
|
|||
|
|
If Strings.AvailableFeature(6) = 1 Then
|
|||
|
|
NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalMinutes) & " minutes passed since midnight")
|
|||
|
|
ElseIf Strings.AvailableFeature(6) = 3 Then
|
|||
|
|
If Strings.AvailableFeature(7) = 1 Then
|
|||
|
|
NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalHours) & " hours passed since midnight")
|
|||
|
|
ElseIf Strings.AvailableFeature(7) = 3 Then
|
|||
|
|
If Strings.AvailableFeature(12) = 1 Then
|
|||
|
|
If Date.Now.Hour < 12 Then
|
|||
|
|
NewLine("The time is " & TimeOfDay.Hour & " AM")
|
|||
|
|
Else
|
|||
|
|
NewLine("The time is " & TimeOfDay.Hour - 12 & " PM")
|
|||
|
|
End If
|
|||
|
|
ElseIf Strings.AvailableFeature(23) = 1 Then
|
|||
|
|
NewLine("The time is " & TimeOfDay.Hour & ":" & TimeOfDay.Minute)
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
End Module
|