elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  ayuda a calcular fecha
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: ayuda a calcular fecha  (Leído 7,609 veces)
leliCabello

Desconectado Desconectado

Mensajes: 158


Ver Perfil
ayuda a calcular fecha
« en: 14 Abril 2010, 02:42 am »

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:
2. Qué día será mi cumpleaños de aquí en 10 años?


En línea

leliCabello

Desconectado Desconectado

Mensajes: 158


Ver Perfil
Re: ayuda a calcular fecha
« Respuesta #1 en: 14 Abril 2010, 02:44 am »

 ;D me confundi este es mi avance...jej
Código:
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


En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: ayuda a calcular fecha
« Respuesta #2 en: 14 Abril 2010, 13:20 pm »

dayofweek :rolleyes:

Saludos
En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
leliCabello

Desconectado Desconectado

Mensajes: 158


Ver Perfil
Re: ayuda a calcular fecha
« Respuesta #3 en: 14 Abril 2010, 16:26 pm »

me parece dayofweek, no es un miembro de visual, o donde lo ubico, ayudenme xfis
Código:
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...
En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: ayuda a calcular fecha
« Respuesta #4 en: 14 Abril 2010, 16:37 pm »

Va sobre una fecha (datetime)

:http://msdn.microsoft.com/en-us/library/system.dayofweek.aspx
Código
  1. Writeline(fecha.DayOfWeek)

Saludos
En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
leliCabello

Desconectado Desconectado

Mensajes: 158


Ver Perfil
Re: ayuda a calcular fecha
« Respuesta #5 en: 14 Abril 2010, 16:56 pm »

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:
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
En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: ayuda a calcular fecha
« Respuesta #6 en: 14 Abril 2010, 16:58 pm »

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

Saludos
En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
leliCabello

Desconectado Desconectado

Mensajes: 158


Ver Perfil
Re: ayuda a calcular fecha
« Respuesta #7 en: 14 Abril 2010, 17:01 pm »

NO ME DEVUELVE LA MISMA FECHA QUE INGRESE y la hora 12:00 m :huh:
En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: ayuda a calcular fecha
« Respuesta #8 en: 14 Abril 2010, 17:04 pm »

Ya he visto, pero vuelvo a preguntar, sabes lo que estas haciendo?
Si tienes esto ...
Código
  1. 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
En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
leliCabello

Desconectado Desconectado

Mensajes: 158


Ver Perfil
Re: ayuda a calcular fecha
« Respuesta #9 en: 14 Abril 2010, 17:16 pm »

si ya me di cuenta como debo hacer para que me devuelva  un dia de la semana dentro de 10 años ... ayudame porfavor :-(
En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines