|
Хочу перевести дату `December 6, 1969` в формат TdateTime, StrToDate не предоставляет такой возможности. Как поступить?
|
|
var D1, D2, D3 :
TDateTime; begin D1 := VarToDateTime('December 6,
1969'); D2 := VarToDateTime('6-Apr-1998'); D3 := VarToDateTime('1998-Apr-6'); ShowMessage(DateToStr(D1)+' '+DateToStr(D2)+'
'+ DateToStr(D3)); end; | |
Категория: Алгоритмы | Добавил: DelphiAiX (28.04.2012)
|
Просмотров: 483
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
|
|