diff options
| author | EverythingWindows <[email protected]> | 2022-11-14 19:55:48 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-14 19:55:48 +0700 |
| commit | 52674dbd4d03161aba9cadb68f09b69fd71b8ecb (patch) | |
| tree | afe00cdce077273fbe537f973696e3f3c84299e7 /ShiftOS-TheRevival/Terminal Applications/Internal/Com_Date.vb | |
| parent | 75ae158b14df32ef41cebfce664dc5d0c50104f3 (diff) | |
| download | shiftos-therevival-old-52674dbd4d03161aba9cadb68f09b69fd71b8ecb.tar.gz shiftos-therevival-old-52674dbd4d03161aba9cadb68f09b69fd71b8ecb.tar.bz2 shiftos-therevival-old-52674dbd4d03161aba9cadb68f09b69fd71b8ecb.zip | |
All one-way commands are not separated into each own module
Diffstat (limited to 'ShiftOS-TheRevival/Terminal Applications/Internal/Com_Date.vb')
| -rw-r--r-- | ShiftOS-TheRevival/Terminal Applications/Internal/Com_Date.vb | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Date.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Date.vb new file mode 100644 index 0000000..81f0822 --- /dev/null +++ b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Date.vb @@ -0,0 +1,40 @@ +Module Com_Date + Public Sub Terminal_Date() + If Strings.AvailableFeature(24) = 1 Then + NewLine("The date is " & Date.Now.DayOfYear & " days since the first day of the year") + AdvancedCommand = False + Console.BadCommand = False + ElseIf Strings.AvailableFeature(24) = 3 Then + If Strings.AvailableFeature(25) = 1 Then + Dim TheWeek As String = Date.Now.DayOfYear / 7 + NewLine("The date is " & TheWeek.Substring(0, 2) & " weeks since the first week of the year") + AdvancedCommand = False + Console.BadCommand = False + ElseIf Strings.AvailableFeature(25) = 3 Then + If Strings.AvailableFeature(26) = 1 Then + NewLine("The date is " & Date.Now.Month & " months since the first month of the year") + AdvancedCommand = False + Console.BadCommand = False + ElseIf Strings.AvailableFeature(26) = 3 Then + If Strings.AvailableFeature(27) = 1 Then + NewLine("The year is " & Date.Now.Year) + AdvancedCommand = False + Console.BadCommand = False + ElseIf Strings.AvailableFeature(27) = 3 Then + If Strings.AvailableFeature(28) = 1 Then + NewLine("The date is " & Date.Now.Day & "/" & Date.Now.Month) + AdvancedCommand = False + Console.BadCommand = False + ElseIf Strings.AvailableFeature(28) = 3 Then + If Strings.AvailableFeature(29) = 1 Then + NewLine("The date is " & Date.Now.Day & "/" & Date.Now.Month & "/" & Date.Now.Year) + AdvancedCommand = False + Console.BadCommand = False + End If + End If + End If + End If + End If + End If + End Sub +End Module |