Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - kennylop

Páginas: [1]
1
Visual Basic 6 / Re:Ayuda por favor con Fecha Juliana de 4 digitos!
« en: Diciembre 05, 2010, 08:56:28 pm »
amigo bueno es un poco confuso de entender de forma sinplificada la verdad y una solucion un poco tirada de mi parte esta aqui, solo la primera parte la segunda ya es tarea tuya, te daras cuenta que saco dos tipos de dato para el anio y es para poder almacenar en la base de datos esto y luego poder pasar de juliana a normal ok, adjunto link para que veas.

http://rapidshare.com/files/435158241/datejuliana.rar

espero serte de ayuda amigo

Código: [Seleccionar]
Private Sub cmdCommand1_Click()
Call julian
End Sub

Private Sub d1_Change()
On Error Resume Next
t1.Text = d1.Value
End Sub

Private Sub Form_Load()
t1.Text = d1.Value
End Sub

Public Sub julian()
Dim jdday, jdmon, jdyear, jdyearreal, juliandate

'leemos desde la caja de texto y no del dtpicker

jdday = Mid$(t1.Text, 1, 2)
jdmon = Mid$(t1.Text, 4, 2)
jdyear = Mid$(t1.Text, 10, 2)
jdyearreal = Mid$(t1.Text, 9, 2)


     Jan = 31
     Feb = 28
     Mar = 31
     Apr = 30
     May = 31
     Jun = 30
     jul = 31
     Aug = 31
     sep = 30
     Otb = 31
     Nov = 30
     Dec = 31
     
     'limpiamos la valiable
     
     juliandate = 0
   
Select Case jdmon
          Case "01"  'jan
              juliandate = jdday
          Case "02"  'feb
              juliandate = jdday + Jan
          Case "03"  'mar
              juliandate = jdday + Jan + Feb
          Case "04"  'apr
              juliandate = jdday + Jan + Feb + Mar
          Case "05"  'may
              juliandate = jdday + Jan + Feb + Mar + Apr
          Case "06"  'jun
              juliandate = jdday + Jan + Feb + Mar + Apr + May
          Case "07"  'jul
              juliandate = jdday + Jan + Feb + Mar + Apr + May + Jun
          Case "08"  'aug
              juliandate = jdday + Jan + Feb + Mar + Apr + May + Jun + jul
          Case "09"  'sep
              juliandate = jdday + Jan + Feb + Mar + Apr + May + Jun + jul + Aug
          Case "10" 'oct
              juliandate = jdday + Jan + Feb + Mar + Apr + May + Jun + jul + Aug + sep
          Case "11" 'nov
              juliandate = jdday + Jan + Feb + Mar + Apr + May + Jun + jul + Aug + sep + Otb
          Case "12" 'dec
              juliandate = jdday + Jan + Feb + Mar + Apr + May + Jun + jul + Aug + sep + Otb + Nov
     End Select

´formateamos el dato a nuestra necesidad en este caso 4 digitos

juliandate = jdyear + Format(juliandate, "000")
MsgBox juliandate
End Sub

2
Bases de Datos / sub tablas
« en: Diciembre 05, 2010, 06:58:31 pm »
un gusto poder comentar y exponer mi necesidad aqui, tengo una necesidad de mostrar hasta 3 datos a la misma vez de diferentes tablas, uso vb6.0 y he buscado por todos lados pero sin encontrar nada, quisiera poder trabajar de la siguiente manera como lo hace access con subtablas dejo una imagen para poder explicar mejor.



como se daran cuenta son relaciones de tablas y no se se es posible mostrar los datos asi en un listview, encontre como hacerlo en un treeview pero la verdad no llena mis requisitos, agradecido desde ya por la ayuda

Páginas: [1]