Visual Basic.NET - obtimizacion de codigo de fecha

 
Vista:
sin imagen de perfil

obtimizacion de codigo de fecha

Publicado por alexis (35 intervenciones) el 04/09/2012 22:21:01
buenas tardes que tal, se me presento el siguiente problema
deseaba saber si me pueden ayudar a optimisarlo

la idea es al final tener el año mes y dia, pero si es un mes o dia menor a 10 entonces colocarle un 0 adelante

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim D As String
Dim M As String
Dim Y As String
'
If (DatePart("d", Now())) < 10 Then
D = "0" + CStr(DatePart("d", Now()))
Else
D = CStr(DatePart("d", Now()))
End If
'
If (DatePart("m", Now())) < 10 Then
M = "0" + CStr(DatePart("m", Now()))
Else
M = CStr(DatePart("m", Now()))
End If
'
Y = CStr(DatePart("yyyy", Now()))
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

obtimizacion de codigo de fecha

Publicado por alexis (35 intervenciones) el 04/09/2012 23:31:36
tema solucionado

ya lo resolvi era algo logico
se puede hacer de estas dos formas y se obtiene el dia y el mes, con el 0 adelante


Dim dia As String
Dim mes As String

Dim dia2 As String
Dim mes2 As String


dia = Convert.ToString(DateTime.Now.ToString("dd"))
mes = Convert.ToString(DateTime.Now.ToString("MM"))

o

dia2 = DateTime.Now.ToString("dd").ToString
mes2 = DateTime.Now.ToString("MM").ToString
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar