diff options
| author | EverythingWindows <[email protected]> | 2022-11-17 11:26:11 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-17 11:26:11 +0700 |
| commit | dc8ddb780f10e7c8372c558ad4dec5fd171b8cc8 (patch) | |
| tree | 699cdfa0445042bcca3f3fdb01b46ddba1a0d85d /ShiftOS-TheRevival/TerminalApplications/Internal/Com_Date.vb | |
| parent | be79ac82e2a542d21f15222119be99051f32dfa8 (diff) | |
| download | shiftos-therevival-old-dc8ddb780f10e7c8372c558ad4dec5fd171b8cc8.tar.gz shiftos-therevival-old-dc8ddb780f10e7c8372c558ad4dec5fd171b8cc8.tar.bz2 shiftos-therevival-old-dc8ddb780f10e7c8372c558ad4dec5fd171b8cc8.zip | |
Changing from all uses Console.BadCommand = False to just one NormalCommand() Sub
Diffstat (limited to 'ShiftOS-TheRevival/TerminalApplications/Internal/Com_Date.vb')
| -rw-r--r-- | ShiftOS-TheRevival/TerminalApplications/Internal/Com_Date.vb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Date.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Date.vb index 81f0822..5e3a794 100644 --- a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Date.vb +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Date.vb @@ -3,33 +3,33 @@ 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 + NormalCommand() 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 + NormalCommand() 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 + NormalCommand() ElseIf Strings.AvailableFeature(26) = 3 Then If Strings.AvailableFeature(27) = 1 Then NewLine("The year is " & Date.Now.Year) AdvancedCommand = False - Console.BadCommand = False + NormalCommand() 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 + NormalCommand() 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 + NormalCommand() End If End If End If |