diff options
| author | EverythingWindows <[email protected]> | 2022-11-16 08:28:22 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-16 08:28:22 +0700 |
| commit | 415ee1e40d41886cb7ccf23ee004c7fa67dd7418 (patch) | |
| tree | 83a2224b490de0421e8f00b000f014a81a34acb3 /ShiftOS-TheRevival/TerminalApplications/Internal/Com_Time.vb | |
| parent | 5aceb7cf1efbfa21ab6a56e2e0cde13774217f97 (diff) | |
| download | shiftos-therevival-old-415ee1e40d41886cb7ccf23ee004c7fa67dd7418.tar.gz shiftos-therevival-old-415ee1e40d41886cb7ccf23ee004c7fa67dd7418.tar.bz2 shiftos-therevival-old-415ee1e40d41886cb7ccf23ee004c7fa67dd7418.zip | |
More enhanced code management and DesktopEnvironment experiments
Diffstat (limited to 'ShiftOS-TheRevival/TerminalApplications/Internal/Com_Time.vb')
| -rw-r--r-- | ShiftOS-TheRevival/TerminalApplications/Internal/Com_Time.vb | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Time.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Time.vb new file mode 100644 index 0000000..17cc2b3 --- /dev/null +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Time.vb @@ -0,0 +1,25 @@ +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 |