[bmx] Extended Date and Time Functions by Ked [ 1+ years ago ]

[BlitzBot]

Title : Extended Date and Time Functions
Author : Ked
Posted : 1+ years ago

Description : More functions for getting the time and date. (Sorry if this has already been done!)

Code :

Code: BlitzMax

1. Function CurrentHour:String(twelvehour=False)
2.         Local t:String=CurrentTime()
3.         Local hour:String=Left(t,2)
4.        
5.         If twelvehour=False
6.                 Return hour
7.         Else
8.                 Return String(Int(hour)-12)
9.         EndIf
10. EndFunction
11.  
12. Function CurrentMinute:String()
13.         Local t:String=CurrentTime()
14.  
15.         Return Mid(t,4,2)
16. EndFunction
17.  
18. Function CurrentSecond:String()
19.         Local t:String=CurrentTime()
20.  
21.         Return Mid(t,7,2)
22. EndFunction
23.  
24. Function IsPM:Int()
25.         Local t:String=CurrentTime()
26.         Local hour:String=Left(t,2)
27.        
28.         If Int(hour)>=12
29.                 Return True
30.         Else
31.                 Return False
32.         EndIf
33. EndFunction
34.  
35. Function CurrentDay:String()
36.         Local t:String=CurrentDate()
37.  
38.         Return Left(t,2)
39. EndFunction
40.  
41. Function CurrentMonth:String(full=False)
42.         Local t:String=CurrentDate()
43.         Local month:String=Mid(t,4,3)
44.        
45.         If full=True
46.                 month=Lower(month)
47.                 Select month
48.                         Case "jan"
49.                                 Return "January"
50.                        
51.                         Case "feb"
52.                                 Return "February"
53.                        
54.                         Case "mar"
55.                                 Return "March"
56.                        
57.                         Case "apr"
58.                                 Return "April"
59.                        
60.                         Case "may"
61.                                 Return "May"
62.                        
63.                         Case "jun"
64.                                 Return "June"
65.                        
66.                         Case "jul"
67.                                 Return "July"
68.                        
69.                         Case "aug"
70.                                 Return "August"
71.                        
72.                         Case "sep"
73.                                 Return "September"
74.                        
75.                         Case "oct"
76.                                 Return "October"
77.                        
78.                         Case "nov"
79.                                 Return "November"
80.                        
81.                         Case "dec"
82.                                 Return "December"
83.                 EndSelect
84.         Else
85.                 Return month+"."
86.         EndIf
87. EndFunction
88.  
89. Function CurrentYear:String()
90.         Local t:String=CurrentDate()
91.        
92.         Return Mid(t,8,11)
93. EndFunction

Comments : none...