[REBOL] Re: Need month names and abbreviations for "All" languages of the world!
From: sterling:rebol at: 31-May-2001 10:40
Great!
Here's a completed convert-month function then:
convert-month: func [month [string!] /local conv seek] [
conv: [
"Ene" "Gen" ["Jan"]
"Fév" "Fev" ["Feb"]
"Mär" ["Mar"]
"Avr" "Abr" ["Apr"]
"Mag" "Mai" ["May"]
"Jui" "Giu" ["Jun"]
"Lug" ["Jul"]
"Aoû" "Ago" ["Aug"]
"Set" ["Sep"]
"Ott" "Out" ["Oct"]
; ["Nov"] ; none here
"Dic" "Déc" "Dez" ["Dec"]
]
if seek: find conv month [return first find seek block!]
month
]
Sterling
