SiePortal

The integrated platform for your product selection, buying and support workflow - bringing together Industry Mall and Online Support.

Products & Services
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Cart ({{apiData.CartCount}})

Navigation

HELP with Miliseconds Now(), Timestamp()...

3/10/2022 1:12 PM	Rate (0)
GusoXXL Advanced Member Joined: 2/10/2022 Last visit: 1/9/2024 Posts: 42 Rating: (5)	Hello, im doing a script where i need to obtain the Date and Time from the wincc system and insert it in a SmartTag. I did the next script and it works but i want also to be shown the MILISECONDS, so any idea to change the script version and show also de miliseconds? i want then saved in the tag correctly with a precision of 3 decimals, is it possible?? Dim DateValues Dim TimeValues Dim Fecha_hora DateValues= CStr(Date) TimeValues= CStr(Time) SmartTags("DATESQL")= DateValues & " " & TimeValues -------------- Thanks

Suggestion To thank Quote Answer

3/10/2022 1:46 PM	Rate (1)
rdoliveira Gold Expert Joined: 4/26/2012 Last visit: 4/28/2025 Posts: 1629 Rating: (186)	Hello, here in this LINK has 3 examples that works. good luck Attachment Atit.jpg (209 Downloads)
	Last edited by: rdoliveira at: 03/10/2022 14:04:59 "Always make a backup before performing any tests and check the best time to do so. Obrigado.
Suggestion To thank Quote Answer

3/10/2022 4:48 PM	Rate (0)
GusoXXL Advanced Member Joined: 2/10/2022 Last visit: 1/9/2024 Posts: 42 Rating: (5)	Its true they work thanks so much, i did myself script i let it here for everyone is simple i also combined the date and hour: Sub Fecha_Hora() 'Declaramos variables para el calculo de la HORA con milisegundos integrados Dim t Dim temp Dim Hours, Minutes, Seconds, Milliseconds Dim Hora_ms '--------------------- 'Declaramos variables para el calculo de la fecha Dim Fecha Dim Timestamp t= Timer temp = Int(t) Milliseconds = Int((t-temp)*1000) Seconds = temp Mod 60 temp = Int(temp/60) Minutes = temp Mod 60 Hours = Int(temp/60) Hora_ms = String(2-Len(Hours), "0") & Hours & ":" Hora_ms = Hora_ms & String(2-Len(Minutes), "0") & Minutes & ":" Hora_ms = Hora_ms & String(2-Len(Seconds), "0") & Seconds & "." Hora_ms = Hora_ms & String(4-Len(Milliseconds), "0") & Milliseconds '----------------------------------------------- 'String con la fecha proporcionada por el sistema Fecha= CStr(Date) 'Juntamos los strings para tener la fecha y la hora juntas en una misma SmartTag Timestamp= Fecha & " " & Hora_ms 'Introducimos en el SmartTag la variable string final SmartTags("Fecha_hora") = Timestamp End Sub

Suggestion To thank Quote Answer
This contribution was helpful to 2 thankful Users rdoliveira Jen_Moderator

Share this page:

Share this page on...