Update Subs.bas

This commit is contained in:
jaguerrau
2023-09-03 22:19:05 -06:00
committed by GitHub
parent 769595f6f4
commit d40fb9974f

View File

@@ -12,6 +12,8 @@ Sub Process_Globals
Private su As StringUtils 'Usa la libreria StringUtils 'ignore Private su As StringUtils 'Usa la libreria StringUtils 'ignore
End Sub End Sub
'Linea de preuba X3
'Convierte una fecha al formato yyMMddHHmmss 'Convierte una fecha al formato yyMMddHHmmss
Sub fechaKMT(fecha As String) As String 'ignore Sub fechaKMT(fecha As String) As String 'ignore
' if starter.logger then Log(fecha) ' if starter.logger then Log(fecha)
@@ -23,8 +25,6 @@ Sub fechaKMT(fecha As String) As String 'ignore
Return nuevaFecha Return nuevaFecha
End Sub End Sub
'Linea XX 1
'Regresa la fecha y hora de hoy a las 00:00 en el formato "yyMMddHHMMSS" 'Regresa la fecha y hora de hoy a las 00:00 en el formato "yyMMddHHMMSS"
Sub fechaInicioHoy As String 'ignore Sub fechaInicioHoy As String 'ignore
Dim OrigFormat As String = DateTime.DateFormat 'save orig date format Dim OrigFormat As String = DateTime.DateFormat 'save orig date format