Cómo utilizar la función de tiempo en Delphi7.0
Sistema unitario
Fecha de función prototipo de función: TDateTime
Formulario de proceso de muestra 1. botón1clic (remitente: objeto);
Iniciar
Etiqueta 1. Título: = 'Hoy es' DateToStr(date);
End;
-
Conversión de fecha y hora de DateTimeToStr a cadena de entrenamiento interna (1996/12/2009 : 12:20).
-
Sistema unitario
Función prototipo datetime tostr (datetime: tdatetime): string
Formulario de proceso de muestra 1. botón1clic; (Remitente: Objeto);
Inicio
Etiqueta 1. Título: = DateTimeToStr(now);
End;
-
DateTimeString DateTime se convierte en una cadena autodidacta.
-
Sistema unitario
Prototipo de función procedimiento datetime tostring (var resultado: cadena; formato constante:
Cadena; FechaHora: TDateTime );
Formulario de proceso de muestra 1.formcreate (remitente: objeto);
Definir variables
s: cadena;
Inicio
Cadena de fecha y hora (s, dddd, mmmm d, aaaa "a las "hh:mm
AM/PM', ahora);
Etiqueta 1. Título: = s;
Fin;
Resultados viernes 20 de diciembre de 1996 a las 21:20 horas.
-
* * * *Consulte el formato a continuación. Formatear fecha y hora.
-
Las fechas DateToStr se convierten en cadenas de entrenamiento internas. (20/12/1996)
-
Sistema unitario
Prototipo de función functiondatetostr (fecha:tdatetime):string;
Modelo
Tabla de Procedimiento 1. Botón1Clic(remitente: al objeto);
Inicio
Etiqueta1. Título: = 'Hoy es' DateToStr(fecha);
Fin;
# Fecha, ejemplo de DateToStr
-
Día de la semana, ¿qué día es hoy?
-
Sistema unitario
Función prototipo día de la semana (fecha: tdatetime): entero;
El valor de retorno es un número entero 1 ~ 7.
El domingo es 1.
Modelo
Formulario de trámite 1.
Button1Click (remitente: al objeto);
Definir variables
ADate: TDateTime;
Número de días: cadena de matriz [1..7]; /p>
Días de inicio
[1]:='Domingo';
días[2]:='Lunes';
días[ 3]:='Martes';
días[4]:='Miércoles';
días[5]:='Jueves';
días 【6】：='Viernes';
días【7】：='Sábado';
ADate:= StrToDate(editar 1. texto);
mostrar mensaje(editar 1texto 'es un "días[día de la semana (ADate)];
Fin;
# StrToDate, ejemplo de DayOfWeek
-
DecodeDate convierte la variable de fecha de tipo TDateTime a tipo Word.
-
Model
Programa Button1Click (enviar formulario 1. (a objeto);
Definir variables
presente: TDateTime;
Año, mes, día, hora, minuto, segundo, milisegundo: Word
Inicio
Presente:=ahora;
Fecha de decodificación (ahora, año, mes, día);
Etiqueta 1. ='¿Qué día del la semana es hoy' IntToStr (día de la semana) 'mes'
IntToStr (mes) 'del año' IntToStr (año);
Tiempo de decodificación (actual, hora, minuto, segundos, milisegundos);
Etiqueta 2. Título: ='El tiempo son minutos' IntToStr (Min) 'Hora'
IntToStr (hora);
Fin
#Fecha de decodificación, ejemplo de hora de decodificación
-
DecodeTime convierte la variable de tiempo del tipo TDateTime en tipo Word
-.
Sistema unitario
Fecha de decodificación del proceso del prototipo de función (fecha: tdatetimevar año, mes, día: palabra);
Tiempo de decodificación del proceso del prototipo de función (hora: tdatetime ;var horas, minutos, segundos, milisegundos: palabra);
Formulario de proceso de muestra 1.botón1clic (remitente: objeto);
Definir variables
presentes: TDateTime;
Año, mes, día, hora, minuto, segundo, milisegundo: Word
Inicio
Presente:=ahora;
Fecha de decodificación (ahora, año, mes, día);
Etiqueta 1. Título: = 'Hoy es el primer día' IntToStr(Día) 'de
mes" IntToStr(mes) "año" IntToStr(año);
Tiempo de decodificación (actual, hora , minutos, segundos, milisegundos);
Etiqueta 2. Título: ='El tiempo son minutos' IntToStr (Min) '
Hora' IntToStr (hora);
End;
-
EncodeDate convierte la variable de fecha de tipo Word en tipo TDateTime
-
Model p>
Programa t forma 1.
Button1Click(remitente: al objeto);
Definir variable
MiFecha: TDateTime;
Inicio
Mi fecha: = fecha codificada( punto str(editar 1.Texto), punto str(editar 2.Texto), punto str(editar 3.Texto);
Etiqueta 1.caption:= DateToStr(MyDate);
p>
End;
-
EncodeTime convierte la variable de tiempo de tipo Word en la unidad de tipo TDateTime System
Función prototipo de función codificada ( año, mes, día: palabra): tdatetime;
Función prototipo de función tiempo codificado (hora, minuto, segundo, milisegundo: palabra):
p>
TDateTime
Formulario de proceso de muestra 1.botón1clic (remitente: objeto);
Definir variables
MiFecha: TDateTime;
mi hora: TDateTime;
Inicio
MiFecha: = fecha codificada(83, 12, 31);
Título de etiqueta: = FechaAStr (MiFecha); >mi tiempo: = EncodeTime (0, 45, 45, 7);
Etiqueta 2. Título: = tiempo tostr (mi tiempo);
Fin;
Modelo
Programa t forma 1. Botón1Clic (Remitente: al objeto);
Definir variables
mi tiempo: TDateTime;
Inicio
mi hora: = EncodeTime(0, 45, 45, 7);
Etiqueta: = hora 1. tostr(mi hora);
End;
-
FormatDateTime convierte la fecha y la hora en una cadena según el formato.
-
Sistema de unidades
Función prototipo formatodatetime (formato constante: cadena; fecha y hora:
TDateTime): cadena
* * * *Similar a DateTimeToString.
Formato de formato
El formato de fecha corta del valor fijo interno c (1996/12/2009: 20:15 p. m.).
d fecha, sin 0 delante. (1-31)
Fecha, empezando por 0. (01-31)
Ddd semanas. (Domingo).
Dddd versión china 2.01, igual que el anterior.
Ddddd fecha (20/12/1996)
Ddddd fecha. (20 de febrero de 1996 65438)
En el mes de M, no se añade ningún 0 delante. (1-12)
Mm mes, con 0 delante. (01-12)
Show Bueno China. (Diciembre)
Mmmm versión china 2.01, igual que arriba.
Yy año. (00-99)
Cada año. (0000-9999)
h horas. (0-23)
Hh horas. (00-23)
n minutos. (0-59)
Nn minutos.
(00-59)
segundos. (0-59)
Ss segundos. (00-59)
t vez. (21:20)
Tt hora. (09:20:65438 05:00 PM)
Am/pm muestra Am o pm respectivamente (en mayúsculas si está en mayúsculas).
A/p muestra a o p solo.
Modelo
El siguiente ejemplo asigna "La reunión es el miércoles 15 de febrero de 1995 a las 10:30 a. m." a la variable de cadena s.
S := FormatDateTime("Reunión en "Año, Mes, Día, Día, "Hora, Minutos, AM/PM",
StrToDateTime('2/15/95 10 :30am '); //
-
Ahora devuelve la fecha y hora actuales
-
Sistema de unidades
<. p>Función prototipo de función Ahora: TDateTime;Modelo
Programa t formulario 1. Botón1Clic (Remitente: al objeto);
Iniciar
Etiqueta 1. Título: = DateTimeToStr(now);
Fin;
#Now, Ejemplo de horario de fecha
-
StrToDate convierte una cadena en una fecha en TDateTime.
-
Sistema unitario
Función prototipo funciones fecha(const s: cadena): tdatetime;
Formulario de proceso de muestra 1.botón1clic (remitente: objeto);
Definir variables
ADate: TDateTime;
Inicio
p>
ADate:=StrToDate(editar 1. texto);
Etiqueta 1. Título:=DateToStr(ADate);
Fin;
Modelo
Programa t Forma 1.
Definir variables
ADate: TDateTime
Número de días: cadena de array [1..7];
Inicio
días[1]:='Domingo';
días[2]: ='Lunes';
días[3]:='Martes';
días[4]:='Miércoles';
días[5 ]:='Jueves' ;
días[6]:='Viernes';
días[7]:='Sábado';
ADate: = StrToDate(editar 1. texto);
mostrar mensaje(editar 1 texto 'es un " días [día de la semana (ADate)];
Fin;
# StrToDate, DayOfWeek ejemplo
-
La fecha y hora en que una cadena se convierte a TDateTime.
-
Sistema unitario
Función prototipo función strodatetime (const s:string): tdatetime;
Modelo
Procedimiento t formulario 1.
Button1Click(Remitente: al objeto);
Definir variables
ADateAndTime: TDateTime;
Inicio
ADateAndTime: = StrToDateTime( editar 1 . texto);
Tabla 1. FieldByName("marca de tiempo"). AsDateTime:= ADateAndTime;
End;
-
StrToTime convierte la cadena a la hora de TDateTime.
-
Sistema unitario
Función prototipo funciones tiempo RTO (const s:string): tdatetime;
Modelo
Formulario de trámite 1. Button1Click(Remitente: al objeto);
Definir variables
ATime: TDateTime;
Inicio
ATime: = StrToTime( editar 1 . text);
Si ATime lt entonces 0,50
ShowMessage("Buenos días")
Otro
ShowMessage( "Buenas tardes"). ");
Fin;
-
La hora devuelve la hora actual.
-
Sistema Unitario
Función Prototipo Función Tiempo: TDateTime
Modelo
Programa t Tabla 1. Timer1Timer (remitente: al objeto);
Definir variables
DateTime: TDateTime;
str: string;
Inicio
DateTime:= Hora; //Almacena la fecha y hora actuales
str:= TimeToStr (fecha y hora); //Convierte la hora en una cadena
Título := str // Muestra la hora en el título del formulario
{Tenga en cuenta que esto se puede hacer con la siguiente línea de código:
caption:= Time tostr(Time);}
End;
#Time, ejemplo de prueba de tiempo
-
El tiempo TimeToStr se convierte en una cadena de entrenamiento interna. (09:20:65438 05 pm)
-
Sistema unitario
Función prototipo función tiempo tostr (hora: tdatetime): cadena;
Programa almacenado de configuración del proceso
Nuevo asigna espacio de almacenamiento para el puntero p,
El tamaño es el tamaño del tipo representado por p.
-
Disponer lanzamientos Nuevos.
-
Sistema unitario
Proceso de prototipo de función Nuevo (var P: puntero);
Proceso de prototipo de función Desechar (var P: pointer);
Tipo de ejemplo
plistentry
TListEntry = registro
Siguiente: PListEntry
Texto: cadena ;
Recuento: entero;
Fin;
Definir variables
Lista, P: entrada plist ;
Inicio
...
Nuevo (P);
P^.next:= Lista;
P^.text :='Hola mundo';
P^.count:= 1;
lista:= P;
.. .
Disposición;
Fin;
Modelo
Tipo
str 18 = cadena【18】 ;
Definir variable
p: ^str18;
Inicio
Nuevo (P);
P ^ := "Ahora ves...";
Eliminación; {Ahora no tienes...}
Fin
-
GetMem configura el espacio de memoria del puntero P, y usted mismo puede configurar el tamaño.
-
Modelo
Definir variables
f: archivo;
Tamaño: entero;
Búfer: PChar
Inicio
asignar archivo(F, 'test . txt');
Restablecer(F, 1); p>
Probar
tamaño:= FileSize(F);
obtener mem(Buffer, Tamaño);
Probar
bloquear lectura(f, Buffer^, tamaño);
ProcessFile(buffer, tamaño
Finalmente
FreeMem(buffer);
Fin;
Finalmente
cerrar archivo(F);
Fin;
Fin;
Fin p>
Casi todas las funciones horarias comunes relacionadas con el sistema están aquí. Cada pregunta que hiciste fue acertada. Ésta es la única respuesta.