Date manipulation: Difference between revisions

m
Line 23:
 
; convert am/pm to 24h format
$h += ($xm = "am") ? 0 : 12
 
; knitting YYYYMMDDHH24MI format
Line 49:
 
;---------------------------------------------------------------------------
Get_MonthNr(MMMMMonth) { ; convert named month to 2-digit number
;---------------------------------------------------------------------------
If (MMMMMonth = "January")
Result := "01"
Else If (MMMMMonth = "February")
Result := "02"
Else If (MMMMMonth = "March")
Result := "03"
Else If (MMMMMonth = "April")
Result := "04"
Else If (MMMMMonth = "May")
Result := "05"
Else If (MMMMMonth = "June")
Result := "06"
Else If (MMMMMonth = "July")
Result := "07"
Else If (MMMMMonth = "August")
Result := "08"
Else If (MMMMMonth = "September")
Result := "09"
Else If (MMMMMonth = "October")
Result := "10"
Else If (MMMMMonth = "November")
Result := "11"
Else If (MMMMMonth = "December")
Result := "12"
Return, Result
138

edits