Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. RJ Jackson

    Help with Reformat of Date and Time? Please!!

    Skip!!!!! In my world "text" = "varFileName" from my other XDS script. Dude...freaking right on! I totally appreciate it! So working right now! Basically, I replaced text with varFileName 'cause I turned my screen sideways and I finally picked up what you were putting down! I clicked on the...
  2. RJ Jackson

    Help with Reformat of Date and Time? Please!!

    Skip, unfortunately, above is pulling the current system date and time. It's not taking the value, parsing, and reformatting. Any other ideas? String: 20170716134008 I tried.... Function GetDOS(theDate) theDate = Field (text,"_",4) theDate = Mid(theDate,5,2) & "/" & Mid(theDate,7,2) & "/" &...
  3. RJ Jackson

    Help with Reformat of Date and Time? Please!!

    Oh you're freaking amazing!!! Wow...like I had the right idea. Much appreciated.
  4. RJ Jackson

    Help with Reformat of Date and Time? Please!!

    Function GetDOS(text) GetDOS = Field (text,"_",4) GetDOS = CDate(GetDOS) End Function I feel like I'm missing the mark.
  5. RJ Jackson

    Help with Reformat of Date and Time? Please!!

    I'm assuming I would use the above and just store then to 2 different variables since they are being indexed into 2 different fields (like excel)? date = dat time = Mid(text,9,2) & ......... ??? 20180716143004 should be 07/16/2018 as 1 value and 14:30:04 as the other value.
  6. RJ Jackson

    Help with Reformat of Date and Time? Please!!

    So, I actually updated as the below aside from using time cause I got what you meant that I should change the arg. Function GetDOS(text) GetDOS = Field (text,"_",4) End Function Function ReformatDOS(YMD) ReformatDOS = Mid(YMD,1,2) & "/" & Mid(YMD,3,2) & "/" & Mid(YMD,5,4) End Function...
  7. RJ Jackson

    Help with Reformat of Date and Time? Please!!

    Skip, Dang it...yeah, not supposed to be that way. So, I need the TOS to be (time). I'll get that changed, duh! But, I believe the key here is that I would need to parse out the relevant digits right? So, from 20180716143004...I need to parse the first 8 digits for the date and then get that...
  8. RJ Jackson

    Help with Reformat of Date and Time? Please!!

    Driving me crazy! What am I missing? FileName: Whatever1_Whatever2_Whatever3_20180716143004 Initial Value: 20180716143004 Expected Date Result: 07/16/2018 using varDOS Expected Time Result: 14:30:04 using varTOS Here's what I got below. Basically trying to take that long value, and get the...
  9. RJ Jackson

    VBScript getting Expected 'End' error --- HELP

    Dang It! I was so sleepy! I gotcha...on both! So awesome! I need to get to learning this better! I appreciate all of your help!
  10. RJ Jackson

    VBScript getting Expected 'End' error --- HELP

    So looks like I didn't need to change.
  11. RJ Jackson

    VBScript getting Expected 'End' error --- HELP

    Wow! Totally Awesome! Makes sense...it's the little stuff! What do you think about the below? Getting the same Expected End. From what I can see, everything is good. Essentially I'm taking a date like 05181984 and making it 05/18/1984. Function ReformatDOS(YMD) ReformatDOS = Mid(YMD,1,2) & "/"...
  12. RJ Jackson

    VBScript getting Expected 'End' error --- HELP

    VB Script Error: C:\Users\hrjco\AppData\Local\Adersoft\VbsEdit\Temp\OCDEZEYU.vbs(3, 3) Microsoft VBScript compilation error: Expected 'End' Purpose of script: I'm essentially trying to see if variable GetDocALIAS = "A587" then the variable GetDOCTYPE will be stored as Doc1, if it's not A587, and...

Part and Inventory Search

Back
Top