Macro version for the time

classic Classic list List threaded Threaded
1 message Options
Michael D. Setzer II Michael D. Setzer II
Reply | Threaded
Open this post in threaded view
|

Macro version for the time

Worked on creating a macro, and had to change it to two inputs.
Tried to do the single input, but ran into issues splitting it to change order
and convert , to -?? So simple solution to input each separate.
Hopefully, the email will have the's correctly..


sub ZT
rem ----------------------------------------------------------------------
rem define variables
dim documentas object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document= ThisComponent.CurrentController.Frame
dispatcher = createUnoService(com.sun.star.frame.DispatchHelper)


rem ----------------------------------------------------------------------
dim sText
dim mText
dim sTime
dim eTime
sTime = InputBox (Enter Cell with Start Time: Example A1)
eTime = InputBox (Enter Cell with End Time: Example A20)
sText = sTime,eTime
mText = eTime-sTime


rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name =StringName


args1(0).Value ==DATEDIF(sText,d)daysTEXT((mText)-INT(mText),HHoursMMinutes)


dispatcher.executeDispatch(document,.uno:EnterString,, 0, args1())


end sub




--
To unsubscribe e-mail to: [hidden email]
Problems? https://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette
List archive: https://listarchives.libreoffice.org/global/users/
Privacy Policy: https://www.documentfoundation.org/privacy