2022-11-14 12:55:48 +00:00
|
|
|
|
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
|
2022-11-17 04:26:11 +00:00
|
|
|
|
NormalCommand()
|
2022-11-14 12:55:48 +00:00
|
|
|
|
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
|
2022-11-17 04:26:11 +00:00
|
|
|
|
NormalCommand()
|
2022-11-14 12:55:48 +00:00
|
|
|
|
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
|
2022-11-17 04:26:11 +00:00
|
|
|
|
NormalCommand()
|
2022-11-14 12:55:48 +00:00
|
|
|
|
ElseIf Strings.AvailableFeature(26) = 3 Then
|
|
|
|
|
|
If Strings.AvailableFeature(27) = 1 Then
|
|
|
|
|
|
NewLine("The year is " & Date.Now.Year)
|
|
|
|
|
|
AdvancedCommand = False
|
2022-11-17 04:26:11 +00:00
|
|
|
|
NormalCommand()
|
2022-11-14 12:55:48 +00:00
|
|
|
|
ElseIf Strings.AvailableFeature(27) = 3 Then
|
|
|
|
|
|
If Strings.AvailableFeature(28) = 1 Then
|
|
|
|
|
|
NewLine("The date is " & Date.Now.Day & "/" & Date.Now.Month)
|
|
|
|
|
|
AdvancedCommand = False
|
2022-11-17 04:26:11 +00:00
|
|
|
|
NormalCommand()
|
2022-11-14 12:55:48 +00:00
|
|
|
|
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
|
2022-11-17 04:26:11 +00:00
|
|
|
|
NormalCommand()
|
2022-11-14 12:55:48 +00:00
|
|
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
End Module
|
