November 28, 2020, 11:25:05 AM

Author Topic: [bmx] Extended Date and Time Functions by Ked [ 1+ years ago ]  (Read 398 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
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...

 

SimplePortal 2.3.6 © 2008-2014, SimplePortal