un MonthCalendar...
Que me decis?
Que me decis?
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú 'ES NUEVO?
If My.Settings.UsuNuevo Then
Nuevo.ShowDialog()
My.Settings.UsuNuevo = False
End If
Cita de: ^TiFa^ en 29 Octubre 2009, 04:26 AMEl problema de ésto, es que con el mes: 10, 11, y 12, pasará el valor: 011, 012... y no lo tomará como un DATE :/
Valgame que pena que no se Visual Basic
Porque tu problemita lo analize, y lo resolvi pero en PERL
for ( my $mes = 1; $mes <= 12; $mes++ ) {
for ( my $dia = 1; $dia <= 31; $dia++ ) {
if ( $mes <= 9 && $dia <= 9 ) {
print STDOUT "0000-" . '0' . $mes . "-" . '0' . $dia . "\n";
next;
}
print STDOUT "0000-" . $mes . "-" . $dia . "\n";
}
};
Lo cual al ejecutar me imprime:Citar
0000-09-01
0000-09-02
0000-09-03
0000-09-04
0000-09-05
0000-09-06
0000-09-07
0000-09-08
0000-09-09
Obviamente la condicion se cumple en mes y dia con un cero de primera, siempre y cuando tanto mes como dia sean igual o menor que 9 puedes hacerlo esto solo es una idea de que podrias hacer para tu problemita. Los puntitos que vez en los PRINT son 'concatenar' si te sirve puedes analizarlo, echarle mas logica y hacer eso bucles for con condiciones si se cumple tal cosa concatename cero en dia y mes, sino se cumple quitamele el cero.