Ooops
October 28, 2020, 05:45:34 AM

Author Topic: [bmx] FileLastModified() by Ked [ 1+ years ago ]  (Read 1259 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
[bmx] FileLastModified() by Ked [ 1+ years ago ]
« on: June 29, 2017, 12:28:43 AM »
Title : FileLastModified()
Author : Ked
Posted : 1+ years ago

Description : string[0] = time (HH:MM:SS AM/PM)
string[1] = date (Month DD, YYYY)


Code :
Code: BlitzMax
  1. Function FileLastModified:String[](path:String)
  2.         Local retval:String[2]
  3.        
  4.         Local time:Int=FileTime(path)
  5.         Local o:Int Ptr=Int Ptr(localtime_(Varptr(time)))
  6.        
  7.         Local second:Int=o[0]
  8.         Local minute:Int=o[1]
  9.         Local hour:Int=o[2]
  10.         Local day:Int=o[3]
  11.         Local month:Int=(o[4]+1)
  12.         Local year:Int=(o[5]+1900)
  13.        
  14.         Local pm:String
  15.         If hour>12
  16.                 hour=(hour-12)
  17.                 pm="PM"
  18.         Else
  19.                 pm="AM"
  20.         EndIf
  21.         If hour=12
  22.                 pm="PM"
  23.         EndIf
  24.         If hour=0
  25.                 hour=12
  26.                 pm="AM"
  27.         EndIf
  28.        
  29.         Local mi:String
  30.         If minute<10
  31.                 mi="0"+String(minute)
  32.         Else
  33.                 mi=String(minute)
  34.         EndIf
  35.        
  36.         Local se:String
  37.         If second<10
  38.                 se="0"+String(second)
  39.         Else
  40.                 se=String(second)
  41.         EndIf
  42.        
  43.         retval:String[0]=String(hour)+":"+mi+":"+se+" "+pm
  44.        
  45.         Local mon:String
  46.         Select month
  47.                 Case 1 ; mon="January"
  48.                 Case 2 ; mon="February"
  49.                 Case 3 ; mon="March"
  50.                 Case 4 ; mon="April"
  51.                 Case 5 ; mon="May"
  52.                 Case 6 ; mon="June"
  53.                 Case 7 ; mon="July"
  54.                 Case 8 ; mon="August"
  55.                 Case 9 ; mon="September"
  56.                 Case 10; mon="October"
  57.                 Case 11; mon="November"
  58.                 Case 12; mon="December"
  59.         EndSelect
  60.        
  61.         retval:String[1]=mon+" "+day+", "+year
  62.        
  63.         Return retval
  64. EndFunction


Comments : none...

 

SimplePortal 2.3.6 © 2008-2014, SimplePortal