diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 14c2e86..9140bd9 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -12,8 +12,6 @@ Sub Process_Globals Private su As StringUtils 'Usa la libreria StringUtils 'ignore End Sub -'Linea de prueba 5 - 'Convierte una fecha al formato yyMMddHHmmss Sub fechaKMT(fecha As String) As String 'ignore ' if starter.logger then Log(fecha) @@ -25,6 +23,8 @@ Sub fechaKMT(fecha As String) As String 'ignore Return nuevaFecha End Sub +'Linea XX + 'Regresa la fecha y hora de hoy a las 00:00 en el formato "yyMMddHHMMSS" Sub fechaInicioHoy As String 'ignore Dim OrigFormat As String = DateTime.DateFormat 'save orig date format