Código:
hay una forma mas facil de solo depslegar la hora? porke me encnetro con el problema de no saber si es am o pm y ademas si son por ejemplo las 12:30 sale perfecto el numerito pero si son las 8 am por ejemplo sale esto : 8:20:Function hora() ttoday = Now() startPos = 10 charCount = 6 Dim cad As String = (Mid$(ttoday, startPos, charCount)) Return cad End Function
MM BUENO YA LO CAMBIE por esto: Dim cad As String = Format(Now, "hh:mm AM/PM") perooo
me devuelve 10:48 A6 /P6, com ole puedo hacer alguna idea? que me diga si es amo pm no que me imprima los dos