amigos como calcular qué día será mi cumpleaños de aquí en 10 años? ayudenme xfas
aqui les dejo mi avance
2. Qué día será mi cumpleaños de aquí en 10 años?
;D me confundi este es mi avance...jej
Imports System.Console
Module Module2
Sub main()
Title = "Calculando cumpleaños"
ForegroundColor = ConsoleColor.Cyan
'variables
'Dim diac#
Dim fecha, fecha2 As Date
'entradas
Write("Ingresar fecha de cumpleaños (dd/mm/aa): ") : fecha = ReadLine()
'proceso
fecha = DateAdd(DateInterval.Month, 12, fecha2)
WriteLine("Cumpleaños dentro de 10 años: {0}", fecha.ToString("ddd dd/MMM/yy"))
ReadKey()
End Sub
End Module
dayofweek :rolleyes:
Saludos
me parece dayofweek, no es un miembro de visual, o donde lo ubico, ayudenme xfis
Imports System.Console
Module Module2
Sub main()
Title = "Calculando cumpleaños"
ForegroundColor = ConsoleColor.Cyan
'variables
'Dim diac#
Dim fecha As Date
'entradas
Write("Ingresar fecha de cumpleaños (dd/mm/aa): ") : fecha = ReadLine()
'proceso
'fecha = DateAdd(DateInterval.Month, 12, fecha2)
'WriteLine("Cumpleaños dentro de 10 años: {0}", fecha.ToString("ddd dd/MMM/yy"))
WriteLine("Días: {0}", DateDiff(DateInterval.dayofweek, fecha, Now) * 10)
ReadKey()
End Sub
End Module
me bota error...
Va sobre una fecha (datetime)
:http://msdn.microsoft.com/en-us/library/system.dayofweek.aspx
Writeline(fecha.DayOfWeek)
Saludos
ps mira ya puse sobre fecha, pero no me bota el dia de mi cumpleaños dentro de 10 años ... me bota otra cosa :-[
Imports System.Console
Module Module2
Sub main()
Title = "Calculando cumpleaños"
ForegroundColor = ConsoleColor.Cyan
'variables
'Dim diac#
Dim fecha As Date
'entradas
Write("Ingresar fecha de cumpleaños (dd/mm/aa): ") : fecha = ReadLine()
'proceso
'fecha = DateAdd(DateInterval.Month, 12, fecha2)
'WriteLine("Cumpleaños dentro de 10 años: {0}", fecha.ToString("ddd dd/MMM/yy"))
'WriteLine("Días: {0}", DateDiff(DateInterval.dayofweek, fecha, Now) * 10)
WriteLine("Dia que cae {0}: ", fecha, fecha.DayOfWeek = DayOfWeek.Thursday)
ReadKey()
End Sub
End Module
Te devuelve TRUE or FALSE supongo, ... tienes la más mínima idea de lo que estas haciendo? :huh:
Saludos
NO ME DEVUELVE LA MISMA FECHA QUE INGRESE y la hora 12:00 m :huh:
Ya he visto, pero vuelvo a preguntar, sabes lo que estas haciendo?
Si tienes esto ...
WriteLine("Dia que cae {0}: ", fecha, fecha.DayOfWeek = DayOfWeek.Thursday)
Es lógico que solo devuelva la fecha, solo le pasas la fecha a la primera parte, y en la segunda haces una comparación (por eso lo de TRUE y FALSE)
Saludos
si ya me di cuenta como debo hacer para que me devuelva un dia de la semana dentro de 10 años ... ayudame porfavor :-(
Cita de: Novlucker en 14 Abril 2010, 16:37 PM
Va sobre una fecha (datetime)
:http://msdn.microsoft.com/en-us/library/system.dayofweek.aspx
Writeline(fecha.DayOfWeek)
Saludos
:silbar: gracias