blob: 17cc2b33ed3894f1c2bea445885bda57fab37272 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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
|
