QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: SpriggsySpriggs on May 08, 2020, 04:04:33 pm

Title: Date Picker using PowerShell
Post by: SpriggsySpriggs on May 08, 2020, 04:04:33 pm

So I'm starting to work on a date picker that would be called using

Code: QB64: [Select]

1. a = _SHELLHIDE("PowerShell -ExecutionPolicy Bypass " + CHR$(34) + "&'" + _STARTDIR$ + "\GetNewDate.ps1';exit $LASTEXITCODE" + CHR$(34)

The PowerShell script I'm editing would send the date that the user picked back in the MMDDYYYY format and use it as an Int32 to pass it back as the $LASTEXITCODE so that it can be stored in "a". Then you could convert it to a string and read it as a date using your own date parsing functions. For instance, today's date could come back to QB64 as:

Code: QB64: [Select]

1. $CONSOLE:ONLY
2. _CONSOLE ON
3. _DEST _CONSOLE
4. DIM SHELL$
5. DIM a AS LONG
6. SHELL$ = "PowerShell -ExecutionPolicy Bypass " + CHR$(34) + "&'" + _STARTDIR$ + "\GetNewDate.ps1';exit $LASTEXITCODE" + CHR$(34)
7. a = SHELL(SHELL$)
8. olddate$ = DATE$
9. olddate$ = Remove(olddate$, "-")
10. old = VAL(olddate$)
11. olddate$ = LTRIM$(STR$(old))
12. SELECT CASE LEN(LTRIM$(STR$(a)))
13.     CASE 7
14.         newdate$ = LTRIM$(STR$(a))
15.         month$ = "0" + MID$(newdate$, 1, 1)
16.         day$ = MID$(newdate$, 2, 2)
17.         year$ = MID$(newdate$, 4, 4)
18.     CASE 8
19.         newdate$ = LTRIM$(STR$(a))
20.         month$ = MID$(newdate$, 1, 2)
21.         day$ = MID$(newdate$, 3, 2)
22.         year$ = MID$(newdate$, 5, 4)
23. END SELECT
24. newdate$ = month$ + "-" + day$ + "-" + year$
25. PRINT newdate$
26. '$INCLUDE:'Remove.BM'

This would prevent you from having to output the date to a text file and read it back in.
:)
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Text Only | Text with Attachments