Actualmente los miembros del Laboratorio son elegidos a traves de propuestas. Osea, son los miembros del staff o del Laboratorio los que eligen a los nuevos.
Un saludo
Un saludo
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úPrivate Sub Command1_Click()
Dim fecha As String
fecha = Day(Now) & "-" & Month(Now) & "-" & Year(Now) & " " & Hour(Now) & "-" & Minute(Now) & "-" & Second(Now)
Open "C:\" & fecha & ".txt" For Binary As #1
End Sub
Cita de: YeIk0s en 20 Junio 2007, 21:28 PM
Pero estás utilizando los dos puntos :
fecha = SysTime.wMonth & "-" & SysTime.wDay & "-" & SysTime.wYear & " " & SysTime.wHour & "-" & SysTime.wMinute & "-" & SysTime.wSecond
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Sub Form_Load()
Dim SysTime As SYSTEMTIME
GetSystemTime SysTime
fecha = SysTime.wMonth & "-" & SysTime.wDay & "-" & SysTime.wYear & " " & SysTime.wHour & ":" & SysTime.wMinute & ":" & SysTime.wSecond
End Sub
Open "C:\texto.txt" for output as #1
Open "C:\" & fecha & ".txt" For Output As #1