VBA Excel date yyyy/mmm/dd to yyyy/mm/dd -


i'm writing small vba manage , convert date external tables , i'm stuck on strange date format like: yyyy/mm/dd need convert date a1 , paste b2

as tamplate use columns a1 , b1: a1= date converted b1= paste destinaton of converted dat

  • a1
  • 2012.jan.04
  • 2012.nov.04

  • 2012.dct.04

    • b1
    • 04.01.2012
    • 04.11.2012
    • 04.12.2012

what tested is:

  1. formula convert (with created dictionary) - cannot use in case of many dates convert
  2. vba date convert - cannot see date a1 proper date , nothing
  3. format date in excel build-in function "formating" - nothing
  4. also function "text-to-column" tested - still nothing

it looking i'm stuck on simple hard move forward why i'm asking help.

thanks ideas.

i use following formula in b1:

=date(left(a1,4),match(mid(a1,6,3),{"jan","feb","mar","apr","may","jun","jul","aug","sep","oct","nov","dct"},0),right(a1,2))

what looks strange abbreviation "dct" december. maybe have change array literal {"jan","feb","mar","apr","may","jun","jul","aug","sep","oct","nov","dct"} according language.

using vba following function used:

function convert_yyyy_mmm_dd_text2date(stext string) variant  dim iyear integer  dim imonth integer  dim smonth string  dim iday integer  dim amonths variant  dim bfound boolean   amonths = array("jan", "feb", "mar", "apr", "may", "jun", "jul", "aug", "sep", "oct", "nov", "dct")   on error goto errhandler  iyear = cint(left(stext, 4))  smonth = mid(stext, 6, 3)  iday = cint(right(stext, 2))   imonth = 0 ubound(amonths)   if amonths(imonth) = smonth    bfound = true    exit   end if  next   if bfound   convert_yyyy_mmm_dd_text2date = dateserial(iyear, imonth + 1, iday)  else   goto errhandler  end if   on error goto 0   exit function  errhandler:  convert_yyyy_mmm_dd_text2date = "conversion not possible"  end function

Comments

Post a Comment

Popular posts from this blog

php - Vagrant up error - Uncaught Reflection Exception: Class DOMDocument does not exist -

i've set bento/ubuntu-16.04 vagrant box using php 5.6, , getting following error quite few times when try , run shell script: "uncaught reflection exception: class domdocument not exist". i've tried adding following top of script (not together), each no success: "sudo apt-get install php5.6-xml", "sudo apt-get install php5-xml", "sudo apt-get install php-dom" i've tried resetting server "sudo service apache2 restart". does have suggestions?
Read more

vue.js - Create hooks for automated testing -

Image
qa guys complained can't automate frontend testing. because our html looks same outside. lazy hack did this <template> <div :role="$options.name"> ... </div> </template> <script> export default { name: 'vmcomponentname' } </script> which takes name script , applies html. in browser get: <div role="vmcomponentname"> ... </div> line :role="$options.name" goes in every component. is there dry er solutions? please share. additional details i'll explain in details looking for. imagine have vmusercreate form creates user. test case can create user . to automatically test without role, have use following selector: .wrapper > .wrapper > .wrapper > .submit-button the test extremely brittle (will break lot). if use roles can use [role="vmusercreateform"] .submit-button selector. many folds less brittle. so basically, i'm ...
Read more

Add new key value to json node in java -

i have json file : { "id":1, "name":"abc", "addressdetails": { "city":"newyork" } } i wanted add 1 more key-value ("pincode" : "414141") node 'addressdetails'. i tried using : objectmapper mapper = new objectmapper(); jsonnode root = mapper.readtree(new file("d://test.json")); objectnode node = mapper.createobjectnode(); node.with("addressdetails").put("pincode", "414141"); but it's not getting added, there way can ? you can try you should modify file path objectmapper mapper = new objectmapper(); objectnode nodes = mapper.readvalue(new file("d:\\test.txt"), objectnode.class); nodes.with("addressdetails").put("pincode", "414141"); mapper.writer().writevalue(new file("d:\\test.txt"), nodes);
Read more