ayuda a calcular fecha

[leliCabello]

amigos como calcular qué día será mi cumpleaños de aquí en 10 años? ayudenme xfas
aqui les dejo mi avance

Código [Seleccionar] Expandir


2. Qué día será mi cumpleaños de aquí en 10 años?


[leliCabello]

  me confundi este es mi avance...jej

Código [Seleccionar] Expandir


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


[Novlucker]

dayofweek

Saludos

[leliCabello]

me parece dayofweek, no es un miembro de visual, o donde lo ubico, ayudenme xfis

Código [Seleccionar] Expandir


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

[Novlucker]

Va sobre una fecha (datetime)

:http://msdn.microsoft.com/en-us/library/system.dayofweek.aspx

Código (vbnet) [Seleccionar] Expandir

Writeline(fecha.DayOfWeek)

Saludos

[leliCabello]

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 

Código [Seleccionar] Expandir


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


[Novlucker]

Te devuelve TRUE or FALSE supongo, ... tienes la más mínima idea de lo que estas haciendo?

Saludos

[leliCabello]

NO ME DEVUELVE LA MISMA FECHA QUE INGRESE y la hora 12:00 m

[Novlucker]

Ya he visto, pero vuelvo a preguntar, sabes lo que estas haciendo?
Si tienes esto ...

Código (vbnet) [Seleccionar] Expandir

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

[leliCabello]

si ya me di cuenta como debo hacer para que me devuelva  un dia de la semana dentro de 10 años ... ayudame porfavor