excel - Converting from string to date -


short story:

my question 2 fold:

  1. how copy on text 05-jun-2014 text file text 05-jun-2014 not displayed #name? or cut off @ 5? (i need whole thing copied over.)

  2. how take text , make date?

long story

in text file have dates in format day-month-year, e.g 05-jun-2014. see, "e" in june cut off. if type in 05-jun-2014 in excel, recognizes it. use cdate convert string date.

my problem multi-fold. want excel vba recognize 05-jun-2014 date.

if try copy phrase 05-jun-2014 text document. 5 copy over. copy string jagged array jaggarray , there call it.

below can see code how copy text: 

private function creategcstruct(byref tempstring() string, byval anum integer, byval onum integer, _ byref olist() string, byval index integer, byval gcsoidate date, byval gcfname string, _ byval typename string) gcbstruct  '...code...  ' jaggedarray: dim jaggarray() variant  '...code...  '2) capture structure information textfile array      'a) remove unnecessary spaces existing array , place jaggedarray     jaggarray = splitstringarrayelements(tempstring)  '...code...  end function

splitstringarrayelements function():

private function splitstringarrayelements(tempstring() string) variant() ' 1) variables:     dim j long     dim trimmedstring string     dim jaggarray() variant     redim jaggarray(lbound(tempstring()) ubound(tempstring()))     dim emptystringarrayplaceholder() string     redim emptystringarrayplaceholder(0 0) ' 2) remove unwanted spaces tempstring() , create jaggedarray     j = lbound(tempstring()) ubound(tempstring())         ' remove spaces inbetween         trimmedstring = trim(tempstring(j))         ' if empty line, array empty         if trimmedstring = ""             jaggarray(j) = emptystringarrayplaceholder         ' else add array without spaces         else             jaggarray(j) = splitadv(trimmedstring, " ")         end if     next j      splitstringarrayelements = jaggarray end function

splitadv() function:

public function splitadv(byval inputtext string, optional byval delimiter string) variant  ' function splits sentence in inputtext ' words , returns string array of words. each ' element of array contains 1 word.      ' constant contains punctuation , characters     ' should filtered input string.     const chars = """-" 'potential options are: "!?,.;:""'()[]{}"     dim strreplacedtext string     dim intindex integer      ' replace tab characters space characters.     strreplacedtext = trim(replace(inputtext, _          vbtab, " "))      ' filter specified characters string.     intindex = 1 len(chars)         strreplacedtext = trim(replace(strreplacedtext, _             mid(chars, intindex, 1), " "))     next intindex      ' loop until consecutive space characters     ' replaced single space character.     while instr(strreplacedtext, "  ")         strreplacedtext = replace(strreplacedtext, _             "  ", " ")     loop      ' split sentence array of words , return     ' array. if delimiter specified, use it.     'msgbox "string:" & strreplacedtext     if len(delimiter) = 0         splitadv = vba.split(strreplacedtext)     else         splitadv = vba.split(strreplacedtext, delimiter)     end if end function

if remove - when copy, 3 parts become: 5-jan-00 #name? 14:42:58

here copy on date structure (assuming removed "-"). goal copy on parts of date "05", "jun", , "2014", , recombine them in format: 05 jun,2014, , try convert date: 

dim rdstart integer      ' row of first gcdate dim cdstart integer      ' col of first gcdate dim tempd1 date dim tempd2 date rdstart = 6                                            ' row of first gcdate cdstart = 2                                            ' column of first gcdate 'collect gcdate '***i errors below*** tempd1 = cdate(jaggarray(rdstart - 1)(cdstart - 1) & " " & jaggarray(rdstart - 1)(cdstart) & ", " & jaggarray(rdstart - 1)(cdstart + 1)) tempd2 = cdate(jaggarray(rdstart - 1)(cdstart + 2)) creategcstruct.gcdate = tempd1 + tempd2

you use cdate without splitting string @ all. cdate recognise many date formats, , long not ambiguous (which "05-jun-2014" isn't), conversion should work fine. works me:

dim d date d = cdate("05-jun-2014") range("a1")     .value = d     .numberformat = "dd-mmm-yyyy" end

Comments

Post a Comment

Popular posts from this blog

javascript - Jquery show_hide, what to add in order to make the page scroll to the bottom of the hidden field once button is clicked -

i have button on website when clicked, reveals map. button can seen when page first loads up, when clicked, section holding map slides open , goes out of screen since page loads @ top (normal). want page scroll down bottom of div select when button pushed, if map out of screen. if page scrolled down, , clicks show map button, don't want page jump bottom of map. i tried figure out myself, no luck. seasoned jquery coders able give me guidance? many thanks! map = mapdiv.gmap3("get"); infobox = new infobox({ pixeloffset: new google.maps.size(-220, -310), closeboxurl: '', enableeventpropagation: true }); mapdiv.delegate('.infobox .close','click',function () { infobox.close(); }); jquery(".slidingdiv").hide(); jquery(".show_hide").show(); jquery('.show_hide').click(function(){ lastcenter=map.getcenter(); jquery(".slidingdiv...
Read more

python - Django-cities exits with "killed" -

i trying install django-cities on server 500mb ram. whenever run: manage.py cities the system exits saying killed. trying run: manage.py cities --import=country --force worked, guessing matter of running out of memory. to bypass, tried refer package local copy of cities' data file. still didn't work. any ideas on how can migrate data without having increase memory on server? based on suggestion comments, solved setting temporary swap file. if unfamiliar it, can follow these steps: set swap file touch /var/swap.img chmod 600 /var/swap.img set swap file size cd /var dd if=/dev/zero of=/var/swap.img bs=1024k count=1000 this create 1gb swap file. prepare disk image mkswap /var/swap.img activate swap memory swapon /var/swap.img once done, can turn off swap image: swapoff /var/swap.img more information on virtual memory , swap files can found here: https://www.digitalocean.com/community/tutorials/how-to-configure-virtual-me...
Read more

python - How to get a widget position inside it's layout in Kivy? -

i have gridlayout , added image widgets on after adding of images want draw rectangle in each image using canvas couldn't because don't know exact image widgets positions on gridlayout. code: http://paste.ofcode.org/3bdp9yhjrcrzmsztbu9hqp4 http://paste.ofcode.org/3az3gx4fxzr9dlhe2ami97c in last line of python code : rectangle(pos = (child.x - 2.4, child.y + 467), size = (70, 70)) how draw rectangle in child(my method not good^), also why gridlayout not coming in center after setting it's pos_hint = {"center_x" : .5}? if understand question right, try use such methods to_local() , to_parent() , to_widget() , to_window() . try substract position of gridlayout widgets' positions.
Read more