diff options
Diffstat (limited to 'ShiftOS-TheRevival/Terminal Applications/Internal/Com_Time.vb')
| -rw-r--r-- | ShiftOS-TheRevival/Terminal Applications/Internal/Com_Time.vb | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Time.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Time.vb deleted file mode 100644 index 17cc2b3..0000000 --- a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Time.vb +++ /dev/null @@ -1,25 +0,0 @@ -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 |