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
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
0