Update Subs.bas

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