From d40fb9974fdff9cd7fa61dd8fb96aacd7bdd066b Mon Sep 17 00:00:00 2001 From: jaguerrau <143662442+jaguerrau@users.noreply.github.com> Date: Sun, 3 Sep 2023 22:19:05 -0600 Subject: [PATCH] Update Subs.bas --- B4A/Subs.bas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 5a2a401..71ab868 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -12,6 +12,8 @@ Sub Process_Globals Private su As StringUtils 'Usa la libreria StringUtils 'ignore End Sub +'Linea de preuba X3 + 'Convierte una fecha al formato yyMMddHHmmss Sub fechaKMT(fecha As String) As String 'ignore ' if starter.logger then Log(fecha) @@ -23,8 +25,6 @@ Sub fechaKMT(fecha As String) As String 'ignore Return nuevaFecha End Sub -'Linea XX 1 - '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